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DECOR V3CLD TASH), ACOLMSCED TC 3OB)) COL TSCLD TESST, 
WCSORHO, THT 61759), (RFOGHEL) 1152202, COMTLECID, T620193, 
‘S(SORHO, THT C1 751) (ERT OMTLB C42) (GRE OMILBCIS)), 
GSCOPCOL 119, TA2201)  ASMT CTD TE TPE CTONST OND COLIS601), 
TAP OL SOY), TUEYSI) CIPLC DD TGSB0d  CIBCHTCDE, Ti 7add), 
We TOP LL) Te eS)) CTO LEED TC 778d), CWP De GD, 
@(OCOL 161) OVIGT) 

A, (AC OE 11) ,CO119381), CAC WGI) COC 19491 
B, (DRHO0 CD 19372), COGW ,0D1 193501, (OE W .CO11935)0 
CC CCTMMCLD TARSAL DP CTSCULD TCLS 


SeCCHECK MMISCESR! FOR STATUS--OLAY 17 OR OLAY 10¢%¢ 
0> FIRST CALL OF PROG? 
*1-G-RETURN ID FROM TROP) FOR CALL TO CNSIR-OLAY 10° 
ST=NORVA RETURN FROM TBOPT© 


UF ORNISCEIBID 100,100,240 


eorSETUP OW PASSES. MAXeSore 
NDMP © IF TX(OWND) 
1F (9005) - NOP) 103,102,102 
OP © 0015) 


°°SETUP OPT SEARCH ID AND TEST. *° 
10P1 = OOPT 
1F (C2) - TOP) 103,103. 1030 
OPT SEARCH. SAME DATA 
lops » IS 
sorc = ICD 


S°CSET ACDS 118-182. I¥4-149 TO 0 FOR TROPT SEARCHees 
@ARE CDII-900)°0 
ED $17 --150/CO 118-19, 123-12, 28-129, 
133-1, 838-139° 
(OO/ACD* 120, 125, 130, 135, 140° 
POMCD“ 121. 126, 131, 135, Ine 
ROO ACDr 127, 132, 137, Whee * 


8030 DO 104 = 110.138,5 


Ween 

CAL RIT 61,.00019,150,1F 4D 
try ems Olt) 

CAL WRITE 61 .COC1?.1S0,1F a? 
Wee Ne wI2) 

CL WRIT 62 ,CD012,100,0F 
ee we Ory) 

CALL WRITS (1.COED. WO. IFeD 
17% = We mOIND 

CALL WRITS (6 .CD01) 400, 1F4> 
CONT IME 


CLEAR 10-1 
OO 105 1.6 
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3 


et ay 


ae 


= 


B17 INPUT LISTING MUTOPLOW CHART SET - SHEEP NING AO LIP CPA POUL - 


Cano S55 caonts eves 

Ine wee nme 383 

83 CALL BRITS 81,CDIED 100,074) 

iw 105) CONTIN 

ih) 

1s ¢€ 92°Sae 0(375.376,377.378, 380,381. Sa2iee? 

is? 150 00 151 Tet .& 

ws TOMSTINY © OCLeSMd 

ws TCMSTIbeN) = O¢te379) 

1s6 051) CONTIME 

ist 

s2 

153 c seeeosEtUP FOR 3 GH. CAC. Gi 3 16 1 TO 2.%eeee 

Is» 200 IGH + NDI3) 

Lb) OOM = KOMP ¢ ADIT? 

1s 1F (VOGHt 3 2000,2000,2003 

137 

fo) c eooTOGMi3ieO. TEST TOG Ieee 

i” 2000 IF tTOGHI1E! 2001,.2001 2002 

160 

161 c eeeTOci3 AND 1190. WST TOGMI22ee* 

1e2 2001 IG © MDI2) 

163 1F (TOGH(2)) %00.400,2003 

1 2002 10H © NOLL? 

i -] 

1. ¢c eoeF IRST TOG. ICST FOR TWPE OF SEARC.cee 

167 2003 IF C1GPL - MOLINE 210,210,520 

168 c 

10 c emeTOGNi3) NOT 2TRO. DO TOGMIIIeC* 

ik] 201 [GW > MOC? 

m1 1F ¢TOGMi1bs 202,202,203 

Rm 

173 c *#¢eTOGHI3 OR 1) NOT ZERO. OO 1OGHWi2)¢¢¢ 

ihe] 202 IGd + NDI2) 

16 WF tTOGHi2+) 400.400.203 

1% 203 «IF (10PL - MDIL)) 2030,2030,410 

in 2030 Now > howe 

1m 

i” c «BEGIN LOOP FOR OGuese 

1 210 OGHI © CONtIGW 

1 

lee c vOCSET WIISC(39)°0.8 FOR FIRST CA1 10 TOOPT FOR GHilI¢** PROGIOI® 

1. mMISC139) = OCL3) PROG 1020 

Tad c 0G 1029 

1.6 tot © Iau PROS 1030 

ies OOMR © OGM) JOGHO-DKM. PRODI HO 

1e7 OGM = DOR ~ Dil) PROG 1050 

ie encolese 

109 c ooSETUP TOTA DM LESS BOX AT Dt )e* PROoI87. 

188 2it WL © AFOGHE Gwe) pR0G 1680 

it OFL2 © EDOM 1ONeS) pnco1ene 

is@ COLKS © OCI? onns 11668 

Ls id COLKS © DIED ~ OCR ICIGHCEI wrosilie 

1m Coke © OF1F - DCOLI CICS) PRG1120 

1s OO 2110 tenth PROG 1138 

1. SONI) © STMVILE © RFLIPLVITE) © AL2TLVECS) © COLKISCOLVICT) ePROGIINO 

1e7 1 CORKZ*CM VEIT) © COLKS*CH VIED PRosr IN’ 

18 SOME) © STPOHCTD © AFL UTLAIIT? © LZALM20ED © COLMECCOLMIET) oPROGIISO 

1 0 COLK2*COLPRC ID © COLK3°COLPGII? PROG 11ST 

ae BOMTELD © STNTCE) © OOLISFLTNOD? © OFLEZOLT2: 1) © COLKICCELTICI) oPRODTICO 

a U COLRRCOLT2CE) © COLKICCHL TSC noe 1 168 

ae 2110 CONTINE onosii7e 

aes ¢€ passii7e 

Ed i 4 eesethl ITERATION LOOP. ADAIST Old AND VIBAR)eeee PROOFS 

Co] SO CAL ONDA nes 180 

os € ecoe TEST FOR CONST. BY GN cee nos1 190 

ae? BBE F COCNST3140) 230,230,223 erooieee 

28 S83 OC ETS) = DONBTIIIGHI) pnosizi8 

a BOCES) © OCNSTECIGwen? eunoiare 

ae OCB77) © BONGTS1 ite?) oncai23e 
Ot3I) © OCMBTE: [G0 10) PROG 1ENO 
OC BBOr © DOMETE: Iedes3) Coe wT 
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Oth WeeuT LISTING AUIOFLOW CHART SET - SHEEP MING AND CrP Creuse POUL - 


Ca WO ooee CONTENTS, eeee 
aus BU BBi1 © OCNST Ss 1G 16) onde 1260 
awe Bi Meee © DCNST St bGede 19) 9n061270 
aus ¢c oncsi200 
ew e once1 50 
a? ¢c COLT LOADS AND OLSIGN DATAcee PROG 350 
au @30 CAL UO R001 370 
a0 ¢ R06 1380 
are wus. 38) = OC13) PROG 1380 
ae c PROG1NOO 
ace PROD 146O 
a3 ¢c eoceeSt ART CESION/SYNTHES!S¢**%* PROG 14 70 
ta] &o CAL TROPT PROG1460 
ae PROGI4SO 
aes CCOTEST OF WORRUL RL TURN--IISC(I9I=7.0¢0° PROG 1500 
ay AF c@stSCi3er - OF71) 241.250.250 PR0D1510 
ae a ACTURN R03 1520 
aee ¢ PROOISZ9 
a c SCCSAME AGSUMED MIULT) AND OWN DATA FOR ITERATIONS ** PROG1530 
a c ORDER ROOT-TIP* PROG ISO 
Cs 250 00 251 11,01 ono 1558 
a3 we morl2ga- 1 R06 1560 
C2] GCeettyess © Ceencte PROOIS70 
2s OPPIEC 2) © UL TRRND R00 1560 
em 21 CONTIN R00 1590 
a7 PROG 1600 
es seetHiVv.m) FOR TSIGED OATAree PROGIGIS 
ax eeeSET Ke) FOR CEAMEIGHT PRINT BY SUBR DEADHS** PROG IBIS 
ne 20 K = mL) PROG IE20 
C1) CAL DEAN PROG 1625 
wn c R00 1620 
my c eeeeTEST FOR OPT SEARCH PROG 1629 
oa] 261 «IF C1OPL - NDI9)2 270,270,300 PROO1E30 
ns c PR0G1639 
~s ¢c eeeeTEST FOR NEXT OW PAGSFECe PROG 1840 
an 270 NOOK = NOD - NDCI) PROD 1650 
ae ORI = OCt?) R00 1880 
ms (fF (O0N) 280,280,220 PROG 1661 | 
tC -] PROG 1666 q 
C3) ¢c @eeSETUP DESION DATA FOR OUTPUT PROCESS*** PROG 1669 
wz 200 «0RH00 - SRO PROG1670 
= C&W © M173) PROGI67) 
Pra] OGWw © TTL) PROG 1672 
Es) 00 265 fet,tl PROGIG?S ! 
Cx] ACAVDE(T) = OCL3D PROOIETS 
37 ACMDGIIt = OCR? PROOIS77 
we 201 CONTIME PROGI678 
Co] ¢c PROG1679 
200 c PROG 1662 
ai c CCGA WT /OESIGN DATA FOR MODATA/TBFWI SUBR. PROG1663 
waz c eC TE ARRAY ITEMS STORED AT-TIPSe PROG 168% 
a3 c #1. O9-Z¢BOX WI/IN.-ST). 2. Ub BOX CHORDWISE ST. ITEMSPROG'” J 
Cad ¢c *3. 19 El. %. 11 GU. S. CESION €,0,AH0. PROG 1667 
= ¢c . 10-BOK PAL WTS-ST. 7. 10-REOD BOX DIST. WIS. ncc 1668 
ies ¢c SB. 10-7 CELTA CH FIG WTS. 8. IS-MISC NTZIN. PROG 1609 
=? ¢ #18. 1-4 WT/IN. PROG 1670 
to] ¢ 19. TOTAL WT SLPPMRY DATA--THT 140-52) (SWT ARAYDS PROGIG?I 
aes ¢c 12. I-WTL EE. 13. LI-ATe GF PROG IGT 
en ¢c 9D 156,157, 158--150 CELLS/ACOCre PROGIGTS 
en c SE Cie TEMP SCRAICH LOC AY TSCt1-1501¢ PROG ICT 
ere c PROGIG?TS 
2 00 263 fe1,11 PROG 1660 
Eta CYeect> © Te LED PRO01681 
a crm © Wart R06 1862 
an CISC heeP? = COtie33) PROG G83 
err CTButhe33) © CO1ie22) PROO1604 
fs] CTMLe77) © Teel) @n0G 1085 
mn creneioens © wieiea 2. R00 1008 
aes CTO foOB) © STII) 7001087 
a CTeCie1100 = ACWOEII) nnn 1808 
ae CTmattes2ia © ACWOGITI nec 1608 
aay WF cl - MOCt@t) 202,282,203 R00 1600 
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a ag a 


sIFR 


CARD 6 


SERS EZSTS ATF STIFIATTIEVS 


PERMEL LSI IIL RIG TSR PER ERT 


eevT LISTING 


202 CImic hey Ts © WHASII) 


nneana 


Claw s6S7) = Tred) 
CTMWI1eG 7? © CPCOLII? 
CONTINUE 

Clawiess © OW 
CTaHINS) = OOW 
CTBHIS7» © ORHOO 


IFO © IGH © 155 


MSTOF LOM CHART SET - SHEEP 


CONTENTS 


CML WRITHS 61. CTBWI1?, 150.178) 


eeeTEST FOR NEXT Gtivee 


tF (NDI2) - 1G) 201,400,202 


°eOPT SEARCH. TEST LOOP NO=NOOW.¢* 


4F INODHW - NDG3)) 323.310,320 
2ee3.0PT SEARCH COMPLETED. SET UP TO ITERATE AT OPT. <e* 


*°OLSIGN DATA ON RCD 1,2,3 OF BLOCK 10PTe* 
*SETUP REQD DATA FOR ITERATION LOOP NOOW2. 


RCD NO 118. 123,128,133 OR 13Oee 


IFS © IOPLONDIS) ¢ 4.3 


CAL REAOMS (1, TSCOL),ISOLIF4) 


Oc3) = WSCelhy 
O37) © 1SC112) 
01380) = TSC113) 
O1381) © TSCrt4 
00382) = TSCLISD 

OO 34h tedtt 
TH) = TSCrlels) 
TPIT) = TSCCle26) 
Wwitid © TSCOle37 
WPALSth) © TSCULe48) 
TR dtd S06 858) 
TOCMTCI) © TSCC1O70) 
OEFFICL) © TSCclo@ty 
VOUT) = TSC1t+92) 
YELOVI) © TSCHLOIO3) 
OCeSTchh = TSHCelosi4s 
DCNOS{I) = TSCC1e125) 
OPOLi1) © WSCUleI 38> 
CONTINUE 

00 TO 323 


WING AO CPPEINALL MODAL - 


PROG1691 
PROGI692 
R06 1693 
PROGION 
PROG 1695 
PROGI696 
PROG 1687 
PROG 1696 
PROG 1699 
noc 1700 
PROG) 707 
PROG 1708 
PRG! 709 
PROG1710 
PROG 719 
PROGI720 
PROG 1 729 
PROG1 730 
PROGI HO 
PROG 1 750 
PROG 1 760 
PROO1 769 
PROG 770 
PROGITES 
PROG 1 780 
ROG 1 790 
991800 
PROG1810 
PROG 1E20 
R06 1830 
PROG IONO 
PROG 1830 
PROGIG60 
PROG1870 
FROG 1680 
R00 1890 
PROG 1900 
PROG1910 
PROG 1920 
PROGI930 
PROOIGHO 
PROG 1950 
PROG 1960 
PROG1995 
PROGI97O 
PROG1980 


eeeueBASIC OPT PASS COMPLETED. D0 DISCRETE POINT SEARCH. *PROGI990 
SAVE DESIGN DATA FOR NEXT Ge DESIGNS? 


RCD MO 143° 


PROCESS DATA INTO TSCi1-200) FOR MOVES 


OO S21 Iel,t! 

TSCU1) © OCBSTIND 
TSCibeLES © OCNOSEID 
TSCiLez2) © Ceesgicds 
TSCULe33) © OBC 
TSilewe) © OnViL) 
TSC1 095) © OMT) 
Te ¢1966) © YBUICL) 
TSCcle77) © YOLICHD 
TSC(1e@B> = ONXTECE? 
TSCCbeOOr = TUWPIII) 
TH CTeLOD = Tew LEE 
TSCCleb202 © WwPICL) 
TSC HOLS) © WPLSET) 
TSCILteS) © TPMT) 
TECCLetSed © TRCWTILD 
tecieses) © OEFFICID 
TSC15017S) © YEUDIND 
TSCULeIO7) © YEO) 
CONT IME 
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Br HOUT LISTING AUTOFLOM CHART SET - SHEEP WING #OD CIPENWH POOLE - 


CAO wO ooee CONTENTS. cee 
mA CML WRITHS 01, 150011 200,183) PROG2240 
ms PROGZ2Z50 
ww? en0c2260 
me Coe eINCREPENT MODH AND TEST#oe# @n0G2270 32 
ws 323° NOON » NCOW - NDII) pROGz200 = 
wo Dowty = O13) PROGzesO ¥ 
mI 1F (NOON) 280,280,324 R02 300 xt 
we 3 CALL OWYBA PROG2316 < 
m3 @0 10 230 en0c2320 # 
¢ ROG2330 % 
= c pR0G2600 | 
wes c @OeDATA SETUP FOR NEXT CH FOR OPT SEARCHS ©? PROGZ610 r) 
3s? € READ DATA FROM RCD 143 INTO TSC ARRAY AND PROCES’. PROGZG2O ‘te 
5 a) S10 CALL READMS (1.1SC112 200,143) PROG26 30 3 
. CONN) Tenn PROGZEN0 e 
370 Ocestch) © TSC1h? PROGIESO ] 
3 OCNOSI ED © TSCClent? PROOZEED z 
me mannii) © TsCUtezes 99002670 k 
373 OBMILGN) = TSC61633> PRoazeso 3 
In GLP = TSC ewe pR0G2690 .) 
35 Oh) © TSCULeS5) PROG? 700 4 
1" YOUI(T) © TSC11+66) PR0G2710 : 
m YOLIGH) © TSCCLOTI pRoc2 720 4 
ye OKI111) © TSCt Ieee) PROG? 730 ‘4 
373 TEP HCL) © TSCC1e99> PRoc2 he 
380 WOPICL) © TSCUHeLtOD PROG2 750 
m1 WePlcly © TSCibetanD PROG? 760 
me MPLS(T) © TSCU1e1 320 PROGZTIO ‘ 
3 TRENCH) © TSCUTOINSD PROG 780 j 
mm» TOCHTCED © TSCODOISAD PROGZ790 ua 
— OEFFICL) = TSC11+165? pR0c2600 & 
™6 YRUDIT) = TSCI1¢1 78) PRoG2810 
= VOLD(1) © TSCC19187) PROGZa20 
me 8bt CONTINUE PR0G2625, 
we PROGZ830 
eo **SETUP DV DATA FOR BASIC OPT PASS** PROGZINO q 
m 20 1SC * 10PS pRoaze50 q 
yee Ico = 1oPc pn0c2060 * 
303 MOD = NDC4) PRNG2a70 
~ 06375) © TeNSTON PRoc2HeC 
™ O37) © TCNSTI2) PROGZE90 
P] 06380) © TONST(5) PROG2900 
7 01381) © TCNSTIB) PROG2910 
we DI382) © TCNSTITI PROGe920 
w 00 10 210 PROG2230 4 
500 PROGZI+O 4 
901 R00 3000 $ 
sez 00ND OF CALC. RESET DATA AND ExITee R06 3010 } 
03 900 00 WO! 191.8 R06 3020 2 
om Ol1e3%, © TORSTEN? PROG3030 4 
os Dtle379) © TCNSTETeND PROG 30N8 4 
es 01 CONTIN PROG 3050 , 
a . PRoo 3080 i 
<08 € © 20SET MMISC(31*1 FOR NORMAL RETURN--CONTINUE TO OLAY 17°¢PROG3910 4 
vos WAISC(S) © OLD R00 3920 4 
910 € R00 3930 
au c PROG 3890 
ste fc TURN pnccx938 
3 po e069 
oN 
Yr} ¢ 
16 c 0000 *SUBROUTINE ONYBASees 
a7 C  S°DEADMEIGHT AND COUPLE ARP! ADJUSTMENT FOR PASS IIheee 
=10 c 
Tr) 
wee ¢€ 
ee SUBROUTINE OMYBA Gve0018 
sez ¢€ wureoo!! 
_a3 € SCCADABIVENT SUBR FOR ASSUME OH AND (BAR) FOR CH/GH PASS©** = CeyB0020 
eh ¢ 11-15-75 CWA-GI4-X0 BABIC AAO HH OL AY Guvece30 
Ld ¢ eovmul, YELE © FUADJ. NUJAESUED ND.667 DIDIND Gorreoan0 
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117% 


Can NO 
nae 
aa? 
xe 
s2e 
ek 


Sit 
832 
833 
ah 
aS 
53% 
“en 


a 
za 


SISAL IS EERE EK EE 


IPUT LISTING MTOFLOM CHART SE* - SHEEP 
eave CONTENTS, 
c O4ORET LAO). WISIN © FAD). MUASSUPED NXD.725 (OL) 
¢c 
COMMON 116220) 
COMMON /IPRINT/ IPs8O) 
c 
DIMENSION 012060) .CO12000? .NO1 100) ,0C 1100? TSEC 4300), 
OYBUDCE LD) YOLOCEED YOULCHS) , VELICLID, 
SORT T ED OBL CEES ONT ESTED AL PRCT DD Coesea er, 
SOCKR CAT) TORPLCEED VORP CHLE TEOUIID, 
STOCNT(LN) .WHPiitn. 
@aosiii2), 
OTTsaua TRENT? TOGaCha) 
¢c 


CQUIVALENCE (COCED . TC2061 8d CCOCND T4621) COULD TIGI2093, 
UCOCELD OC ISOS PD CTSEC ESD COCUSOLED ATTCUD. TEESE PDD, 
RETRCDD VOU IOOND, CCOGHEED TIN 3022 (OGRE IDOWIEDT, 
SLOKONS 001139), COYBE 0891990 CUR TLE 011223), SUPRZ C2079. 
CAL PIC ED FSGS) ORME CHD TE POSTE MOBMTEC ID TEM20), 
SCONCE) TE ISEID  CDEF LITE T1@OO)) , CIEMPIIL) TEMS), 
GCVO 561), 16 7G79 2 ATBOC LY, TES3Od), IOI, ThGOOND, 
FAVOLO(L) VIG POE A YELOII) T1690) F (OGM, T2200, 
BWYBUL (1) TSECeHSSED, VEL TAN) TSEC (1081), (NPAGE .ND( B32), ¢ GH NDI! 
@) 09, NO(269 9.1L NDI27) ), (MND 2B)? , (NODW,ND1 56), INCASE .NDI60)) 


WIND ARO CPPENUCE MODULE - 


OuvBe100 
Greoric 
Onv@o1t1 
Onrveoi 12 
owveo113 
ONYBOTI4 
Owvpo115 
PNYBOLIS 
OwvBO117 
61)0WYBO118 
OnNvBO119 


BCOPUSC T0199), CBOE CD) TE Odd CERI), T0756) COL BX, T0188) ONYBOI2) 


Ct ,NDL290) Ourp0122 
0, (R051) ,COC400)) OwvBO123 
Ouveei29 
ONYBOING 
<eeSET K=2 FOR OLADSEIGHT PRINT HEAD 61 SUBR DE AQWCr* Guved!50 
190 K = NOC2) mrv80 160 
€ OuYB01 70 
S°°SETUP FOR 3-PAGS ITERATION FOR ON/YBA” EFFECTS ON 10=J°DNYB0100 
STEST BRPRE THEN INITIALIZE YEAR ASSUMED-YBAR DESIGNS ©OHYBOI90 
108 vem Gurpo200 
c Gurveo202 
¢ 22°C CK FOR BK PRINT-- 1D IPI2s .25)0°° OrBo2o2 
c elP 25 © PRINT AT NODWel OMY? OwyBO202 
c *°1P 2 © PRINT FOR ALL WODW GREATCR THAN 1° Guypoz02 
c 
46 (NOON - MD01925201,. 3201, 1203 
c 
0201 IF C1P 125191202, 1202, 110 
1202 WRITE(6, 1203) 
1203 FORMAT CIN .@9X.20H"* OWYBA - 1P(25) 9) 
GO TO 200 
c 
$203 IF 11120191206, 1206110 
1205 bRITE(6. 1207) 
1207 FORMATI IME ,@9X,20H¢* ONYBA - IPtZe) 90) 
c 
200 RITE (6,201 INCASE, 1GM NOON .0GH1 .DGWR Gerpoz03 
c Garvpazi0 
201) FOFAT (10H CASE I 14K WOH °°-OE AME IGHT AND Y-BAR ADJUSTPENTONYBO2 11 
0 DATA-¢*-75H0, 17%, CH iGell. aH NOON 2I2 
201.04 OGief9.1,0H OGHRI¢f8.5,/8GHO STA CEFF(AD YBUTA? YBUIO) DMYBO213 
SB YBLIAD YELIOD TEIN Tem Ad Te-miD) = ee) > Girpo2is 
c Guveo2 19 
BO2 FORMAT CIM 2X, 12.F9.%.0°8.4.F8.9.2F01.1,78.1) Gurpoc20 
i4 OervBo2- 1 
OO 203 te1.41 Owreoz22 
me m2) -t Gurpoz23 
CRITE 16.2020 .OCFT LIL? YRUL UM), YOUDIM) ,YBL ICM) , YELDIM? , TEP IIL) .OONYBOZ2N 
AROUTT CL .OReCL ) ONCE ECL Quveo223 
203 CONTINE Grpo2zs 
Gureo22a 
c eceeeS TART LOOP. COMPUTE NEW OPRICE! AMD CELTA Pipicccce Gerrwo230 
OME YEO. VELD* Oree2 $1 
116 OO 1100 Lel,tt onse ss 
VOUIIL) = YEU) Grepa23s 
VOLItL) © WEOW) eereo237 
0160 CONT IME Greco 


2430 


Taree) 


Cam 


MSTOFLOW CHART SET - SOCTP 


WING AND EMPUINAGE MODAL - 


INPUT LISTING 
cece CONTENTS, eee 
¢ OwrG0239 
OO 119 mettl OHYBO40 
te NDUI20- 4m OGurB0es0 
TROD © TSO - VBULIL) - YORU? DWYBO2ED 
WE CTREED ~ Ochdd ONO VES OwvB02 76 
Vib TROD) © CEFFILIM UarrBo280 
WF COCTF Lord 81109810, 912 OwTBO28! 
100 TROD) = OCaD Guyeo2e2 
OCrF ecm + Dele OwYBOons 
D12 TRIS) © UL TLE DCMI CAL PHIMIRLOSIMe LTD © UPHZSCONMINCME - Domine) OW TDOCYD 
IML 051077) OwyYBo29! 
DvB0300 
COMPUTE NX RATIOS¢* Ow7B0310 
TRISP © Dene OnvBO3I1 
4 COGME dere) 1120, 016, 0020 OMYBO312 
2620 DOMETim) = aBSIDOR tem) OwYB0315 
1121 TRO3) © TRIQI/ARSIDOMEL ON. DHYB0320 
WF CTROS) ¢ 0.90) El2e,bl23,0les OwvB03e1 
ts22 TRI3> = -0.90 OuyB03e2 
tl23 TRewd © Oebd - TROLIZOCFE Lem OMYBO330 
¢ OWVB0 10 
KSYBARIO OwyYBO 350 
€ 
VAR = OF1) © TRESD © TRIG) 
c 
IF (VAR) 301.772, 302 
30! YBUI(L) = YBUDIL? 
YOLUCL> = YEO) 
¢ 
JON WPL = 0.0 
Go 10 119 
¢ 
We TRIS) = VARS OKYBI 
TRI1) = TED) - TRESDOIYBUDEL) *YELOIL DD OuYBO370 
IF CTROEE - OCadd GbE 11S, 014 OnvB0 380 
Ws) TROD) = O€FFLUD GyB0390 
19% TRiWd = Olid - TREGI/ADEFF CMD OMYBO"00 
¢c 
VAR © OCI) © TRESD © TRIG) 
c 
IF (VARI 301 303,303 
c 
3O3 TRIS) © VARS ODKYBE 
$16 YBUIIL) © VED, PeERIS) OrB0420 
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FRIC, PRIHeCee 


OBIE DPUT LISTING ANOLON CIVAT SET - SEER WIN NO CPP ORE 
aa NO eece CONTENTS cone 


SIG 16 iP 6319318. 318.400 
318 UPB > OEE 


O5H0900 

@eeTES! FOR OPT SEARCH, TYPE AND LOUP STATUS «re CNSH0910 

**SEIUP SIA J 1Dee* CNSRODI t 

800 =10PJ = NDIS: CSRODI2 

OF ¢OOPT J) 4061 4001 4000 CNSROS13 

8000 IOP) = DOPIY CNSROSIS 

R001 IF OZ) - 10P1) 401.401.4810 CwSnO320 

ROL IF CDC 3) - NOON! 992.530.40% CNSROS30 

CNSROHO 

BASIC OPT CASE CNSRONO 

eerCMt 3 TO CNSIR--CLAY 10--AETURN ID-bere CNSROIS! 

O02 SCH39) = Ol? CNSROW6O 

RETURG OGR0965 

c CNSROSD9 

"GQ20 GO 10 790 GAR0970 

Ouer09c0 

CASROI90 

Tes! FOR LOR 2 GR 1000 

Oe BF CNODM - NDIED) 410,410,420 OGR1010 

SR 1020 

2eceBsSIC CAEL PLUS LAST PAGS FOR OPTeere CMSR1030 

eeeCMl 2 10 CSIR--OLAY 10- RLTURN ID:2ee* CNSRIOS) 

818 msci3s ) = O12) CGRIOO 

IU CNSRIOWS 

c CERIO 

9109 1F (NDI2> - NOOW) 790,790,700 GARI 050 

OGR1060 

eOOMODM 2, 10F1+2,3.%.5. OPT PASS OGR1070 

828 TOP] © NOt6} eR 1080 

c NER 1088 

c eeetml STO CGEIN XAT 10--RAETURN ID * - OH 1089 

mui 39) + DIS) CNSR1090 

TURN OGRIONS 

c CNSR 099 

=200 GO 10 790 Crs 100 

c OGRI110 

eons 3, 101*2,.3.%.5. DISCRETE POINT SEARCH FOR OPT. ¢*°CNRI 120 

8383 LOPOCI) + mOt2) OGRII30 

1oPDI2) » NII? OGRIINO 

1OPDC3: © NDIN) OGRIISO 

forcis) + 015) i ERIS 

torois) = Dil? GR) 152 

iow ioPP = MO110) OGRIISS 
1099 9340 00 832 191,11 OGRII60 
10 OCPSIC1d © OCI3s OGR1170 
tot OCNOS11) © OCHS) OGR1180 
tore ele CONTIN G@GRI190 
1s € eooSETUP STA 1-3 MO Jel - Ib OATAces OER 1250 
LT ad eR = OO1I2) - lOPD OGRI260 
1s TORe) © YSIACIMD - YSIRCOLE OGRI270 
(os TOUS) © YSTAC(tO) - YSTRCIN-I? OGAI200 
17 c CGR1290 
tone c eoeetESt FOR TYPE OF OPT SEARCHSsee OnsR1 100 
1%9 WR IF ANDI) - LOPE) 84) 845.496 OGRI3I0 
150 c OGRIIeO 
1051 c erCveRt. WS 6 CSIR. NOT COMPLEICO. USE CONST NOS OR BSIR LOGIC CNSRII30 
tone Wel IF COPE = MDEED B62 Wh? W463 OGRIWHO 
1033 c CGR HE 
17> wee 10P1 = MDI2) OGL RS 
ws @ TO 6 OGA1 ISO 
1% Ws IOP + MIs? Only 
1037 OO TO eS Geni 360 
166 c OGGRIITO 
1o7- c *10+3 CONST ESTRe CGR 1 380 
1068 WA IS © Id) OBR HO 
1081 Trees © OI OtiG? CGRIS00 
1e82 Ormze = OIF OGRINIO 
te83 tor © OP3i2) QGERIS20 
toe © COPsIN? Ganisto 
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obi 


CARD WO 


1083 
1066 
$067 
1068 
1069 
1670 
107% 
seve 
1073 
10m 
10% 
10% 
1077 
1078 
1079 


1005 


1087 


1097 


IMPUT LISTING MUTOFL OM CHART SET - SWEEP 


S46 


a4? 


“SI 


“52 


433 


Lin] 


€ 
SHO 
ewe 
¢ 
Wed 
c 
Ls) 
c 
as 


CONTENTS 


101301 » COP3Is) 
TOCth> © DOPSZiHy 


GO 10 *460 
°IDs2. CONST NOS* 
isc + NDI2) 
06380) = TOwi2) © Tes) 
Di sel) © 01380) 
Ted) « O1380) 
TOr@) © OoP2i2) 
Tor9r © COP2tI) 
WO11Or® DOP2KT) 
TOLL be COP2t4) 
TE ¢TOCEL) 947,447,450 
Tochs) © 1OC1Or Dian 


eSET BCO-0, TEST CONST #¢ 
1cO = OCcds 
16 (CN51D) 491,452,451 
0637) = WT) 
Ors = Tr 


2eSTART SEARCH AT POINT $+ PAX VALUE OS® 
To122) = O11F 
JOPL © 10P015) 
TOr6) = TO.e) 
1oPt © NDI? 


#eeCAL 4 TN CNSIR- OLAY 10--RETURN IDs4eee 
WMISC 139) © O14 
RETURN 


ePeTEST FOR ENILRM. PT PRINT. DOPTPs2 0 AND IFA lee 
IF CIPAINS23 4523 WHO? 


ee°TYPE A PRINT -OLSIGN AND WT SLPUARY Paci sere 
CALL PRIA 


TO (2n) = TO16I 
TOC1S) «= TOW) 
1OPDi%) © LOPOIS? 
TO1e) © FOI) 
Tor2is = TO16) 

TOV23) = TO) 
To1l®) © for) 

TOLI@) © TOs 

TO120) = Tord) 

fort © 1o0PD(4) 
1OPOCId = 10P012) 
sopoi2) © lorac3) 
loro: 3) © 10POr4) 
1OPDI4) = 1OPD(S) 
JOPDIS) = 1OP1 

TOr6t = TOC6r - TOO) 
WO122) = Toree) » Ob 

POINT Ie 


*eeCAl 5 FO CNSTIR--OLAY 10--ALTURN ID «See 
MAISCHIG) © O15) 
RETURN 


2eeTEST FOR INTERM. PT PRINT*** 
IF CLPAISSS WHS 2 
CAL PRIA 
SF CTOUIB? - TOCLE? 495,456,480 
ioPT = NOt2) 


Ce (MTERM. POINT. OPT~1 OR t-199 
Tore) © TOC2i) 
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WIIG) AD COPEL AE - 


CNSAISNO 
CNSR E4SO 
CNSRISGO 
Cor" 965 
CNSRIN 70 
CNSAISGO 
CNSR ISSO 
CNSR1S00 
CNGRISIO 
CNBR 1520 
CNSR 230 
CNSRI SHO 
CNSRI550 
CNSR 1560 
CNSRI570 
CNSR 1580 
CNSR1ID90 
CWSR1I600 
CNSRIGIO 
CNSR 1620 
CNSRI630 
CNSRIEN0 
CNSRIESO 
CNSR 1660 
CNSR1I670 
CNSRI6B% 
CNSR 1676 
CNSRI678 
CNSRI679 
CNSR1680 
CNSR IGE 
CNSR 1606 
CWSR1687 


CNSRI691 
CNSR 1692 
CWSRI693 
CHSRIES 
CNSRIBSS 
CNSR 1695 
CNSR1697 
CNSR1 700 
CNSRI 701 
CNSR 705 
CNSRITIO 
CNSR 720 
CNSRI 730 
CNERIMO 
CNERI 750 
CNSR 750 
CNER1770 
CONGR 760 
CNSR 790 
CNSR1G00 
CNSR 1805 
CABO 


CNSRIGIS 
CNSRIGIS 
Ger i620 
Cwsa1é2) 
CNSR1822 


CR1825 
Gvsri8e9 
CEAIE30 
GR 1839 
CNSR IENO 
CNSR 1850 
CNSR1660 


Bsn 


CARD NO 


ws 
37 
138 
1139 
4190 
ond 
tise 
ies 
bis 
1885 
tise 
UN? 
tise 
1iN9 
1190 
St 
1182 
1183 
11s 
4155 
1136 
157 


INPUT LISTING MUTOFLOW CHART SET - SHEEP 


as? 


o 


anna 


anannanana 


CONTENTS. 


TOs2t) © 3016) 

TO1Gs © 10161 © TOCNLE 
for2st = Toler 

TO123) = 1O¢18? 
TOVler = Torts 

Tors) » To12) 

Woi20) = 1013) 

10P) © 1OPOCE? 

sorocts © 1OPOI2) 
toroi2) = 1oPOr3) 
WOPOI3) © 1 ie) 
1oPpiss © LOPOIS> 
JOPO1S: = LOPL 

Tor224 © Wize) © DU 


*erCMl 6 10 CNGIR--OLAY 10--AL TUN ID 6¢¢* 
WIISCI39? = O16) 
RETURN 


e@eoTEST FOR INTL PT PRINTOS? 
IF 11PAI9573 9573 4970 
CALL PRIA 


eeeTSt OFT CONDITION §I0PT t= END PT 2° INTCRM PT. see 
te C1OPT «= NDULD) 456,456 .463 
1f (10116) - TOL19) 459,480,480 
1oP1 © 10P0ts) 
TOI22) = TOr2er - OV) 
TO16) © TOI2I) 
GO 10 482 


opt 1 LESS THAN I-1ee 
UF 1F0IG) - TOCNLD - TOI9h) 480.46) 4OL 


*L AST VAIO POINT ?® 
Torey © Tor2n 
Tor2u) = TOV 
TO16) © TOIG) - TOULLt 
@ 10 457 


eoTEST WITH OCLTA 1ee 
IF €TOKEd - TOL10) - TOIDh? 464.453, 453 


eoOrt at Pid) OR (l-21e% 
IF (TO123) - FOUL) 464 ,480.400 
fort = fOPOC3) 
TOre2) = WOi22) - Hier 
TOG) © TO1e4) 
GO 10 “82 


SOCK T FROM SEARCH. TEST FOR TYPE OF PRINT<? 
CxIT FROM LAST CAC POINT-OPT. ACD LOC IN SOP] 
IF (tPA) 799,799,487 
If (1P4) 799, 799.487 
Fs eM 


*°COPMPION READ AND PRINTS? 
*eeRCD 1 OF BLOCK © MISC DATA. READ INTO TSCII-1501e%" 
AEN 2 OF MOCK © IWTtI-150r¢ 
LO BO MOCK © T55t1-1001¢ 
CO 6 OF BLOCK © ICiI- Cie 
LO S OF MOK & COri-4O0Is 


CAL ALAS 11. 1SC11) 150, 1F 4) 
Wee wo mb 
CAL READS 1), THT1E) 150,174) 
ive om 6 MDIe) 
CALL MEADS 11.75511).100,1F4) 
Ire eo we MIND 
CALL REAOMS 11, 1C011, 0, 14) 
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WIMG AO CLINE MOU - 


CNSR IGES 
CNSRIB70 
CNSAIOTS 
CNSRIGTS 
CNERIOCO 
CNSRIB9O 
(N5R1900 
CAGRI910 
CNSRI920 
5R1930 
CNSRIDSO 
CNER ISO 
CNSR 1960 
CNSRISCS 
CNSR 1908 
CNSRI969 
CNSRI970 
CNSRI9 7S 
CNSRIS75 
CNSRI977 


NSR1980 
ONSR1981 
CNSR19Ge 
CNSRIGNS 
CNSR 930 
CNSR2000 
CNSR2O0S 
OGR2006 
CNSROO10 
OwSR2020 
CNER2030 
CNSR2040 
(95R2050 
CNSRE060 
CWSR2080 
CNSRZ08t 
CNSR20U- 
@6R2090 
CN5R2100 
CNSRO110 
CNSR2120 
CNSR2130 
CNSR21 31 
CNSR? 140 
CNSR2150 
CWSR2160 
CNSR2 161 
OGER2165 
CNSR IED 
CNSR2 160 
CHER 170 
+r5R2160 


OGR2EN5 
CwSR2 300 
core 310 
CNSR 311 
OsGR2312 
CNSRE313 
CNSA2314 
CNSR2315 
OGR2319 
CNSA2 320 


its 


CARD 0 


1207 
1208 


INPUT LISTING 


eece 


a 


o 


anana 


Oe = mo OND 
CAL n. AUS 61.CD11) 400, 1F 41 


osm) 
ors 
O10! 
Om 
0: 3a2) 


(Re SRR RE GSE “WEES Rape ao OPT PD 


AUTOFLOM CHART SET - SHEEP 


CONTENTS 


SOPROCESS MISC DATA IN ISCIL-150)¢¢ 
00 $86 1+1.5 

TOrds © TSCenD 
TOLL017) © TSCTOS) 
CONTINUE 


TSCCURD 
TSsc¢12) 
wsc413) 
TSCcist 
TSC11S) 


00 6860 =I.) 
TMP Vl) © FSCeteis) 


TH It 
wereld 
WPL Stt 
TRAL A 
TOCWT¢) 
OErrict 


’ 
’ 
, 
’ 
’ 
, 


= TSCiIe26) 
© TSCibes7 
© TSCe ewe) 
= TSC11099) 
© TSC1Le70) 
© TSCelemly 


YOU) © TSCibes2) 
VOLO) = TSCC1+103) 


OCBSTI Ny © TSCUletiNe 
OCNOSI 1) = TSCL10125) 
OMAELCH) © TSCClel 36) 


CONTINUE 


N= [OPDUIOPRP)-NOIS) ¢ 113 


SoTEST RETURN 10PTH=2,3¢¢ 
IF CHOPT - MOC21) 791,791 ,.4890 


*eoPRINT BLOCK 10FO DATA AND OPT. OPT*10PI=2.¢%¢ 


SPRINT 1.2.3.9 AND OPT=5. LOPI=Se* 


COPRINT 1.2.3.5 AMD OPT=4. 1OPI over 
(OPP = NOL) 
toPpT = nDI3) 


GO TO 485 


RETURN OQ! MOVE 


SPeTEST IWT(1) FOR WT--IF 0.0, SKIP PRIA PRINTS? 


IF (TWICE?) 496.9896 .4695 
CAL PRIA 

OPP © [OPP ¢ NOLL) 

IF (14)-TOPP) 4691, 4093488 
topT © npr2) 

UF CTOPL - NOCSI) %892 492.489 
10PP > NDIW) 

@0 TO 480 

IF CIOPL - NOINED 489% .4O WOR 
OPP © NDIS) 

@O TO 4e8 


1F (DYPVT) 701.701, 7000 
tel.y 


seeeTESt FOR PIVOT CaCeeee 
SUF PIVOT CALC. SAVE ICI1- 30) IN TSCOL-360) AO CLEAR® CNSRS3tI 


Tscat> = Torts 
Torts = Occ 
CONT INUE 


CAL PIVOT 


eeoTOTm LIGHTS/AV. FOR WING, HORT, VERTece 
SCT AVOCWT I SIOE 2 Ke 


Kel FOR WING AND HORI. 
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MING AND CHPENNAGE POOULE - 


CGRWIE 
CGR It 


K=1 OR 2 FOR VERT+F IND OF PRLSICNGR 3412 


Rae 


B11 


CARD WO 


INPUT LISTING ASIOLON CHART SET - SAEEP 
eco CONTENTS. 
« K-2 FOR 1 ML, 1 FOR 2 PLS? 
Fei OO P10 198.149 
WMTCED © THIET D621 NASTAD 
FIG COMTINE 
€ ScceS ME THTI1-100) IN TEMP LOC TWE701-Bnd)seere 


naannnnanaa 


ne 
ns 


GO FO2 I-8,100 
Tecte FOO) © THE? 
CON ae 


TEST FOR C-SLC WT CAC -- 10 IN Df480I9C-SEC WIDTH AT C.L. 


MING AD CPPCC MODULE - 


CNSR NGG 


INTERIM C-SEC SUBIR -- 10-14-65 --tIC-SEC “MCL CS MTZIN AT SEC. LIGIER 70 


00 C-SEC. TEST FOR CAC IN SLER 
Ca. Cstcu 


PLY OELIGU, G1, FS. RS) 10 C-SEC ELDENTS WIS 
OO Fil toa .2 
VSSCbo@) © MCSCEDSTSSIN6O) 
PEGI bel) PQA CStus TSSe belts 
TISC bere -OL CSC 131 TSSeleies 
TSC 1 e tS POL CS01 7) TSSE 0 ote) 
CONT ME 
TSSC11D © GUCStIbeTSSInt? 
VESCIe) = CLCSIeDeTSS¢9%) 


W CTSS¢hed M2, 71%, Fe 


CoeCSEC WT. DATA PRINT--SAE 10 AG PRIA 1D9°" 
SET 01 FOR OUTPUT BY PRIHS 
W iPar 719,719,713 
eo MOLD 
CAL PRM 


*eeTOTA WING DAIA—OPML © CSEC**" 
WICSEC? = MISTRUD ¢ WIMISC) 
TuT(43) = TSSC1) © TSSt2) 
TUTtNOD © THTC4O) © DERM CTNT(NS) 
CONE) © TTIN3) SeVID/DI2) 
COLL) = COLIH) © COMI TELS 


CCeSAME WT SUPOURICS SUT ARRAY FOR MUOATA SUBRe*® 
TMT (40-43) (NEEM L de 
BMTC1S © WUTCNOD 
mmi2) = mast? 
@t3) ~ OCLs 
BTiey = NTCe3) 
OO We i-t,7 
BTC how? © NA lows) 
CONT IME 


SK TOTA BLIGHT DATA FOR SLOPURY TALE PRINT -- TYPE D 


COR BASIC CPOE. SAVE TWT11-30), 135-43) , (45-53) (67, 70) SCNSRETT) 


FOR PiVOT CASE, COMPUTE CELIA WTS @O SETUP Fine WT TAME 
PIVOT WTS IN TSS(26-30! DELTA OPM PNTI1-S0) C-SEC TSS11-25) 


ee$s BASIC WTS ON ACDS 10+. 165. 186 FOR GHC? .2,3158 


‘TUL LOC FOR SBR PRIO WILL BE COIN00-699)° 


60 73 I-1.58 

TSStheSO) = TSSi1) 

Ww cl - mw) H.. ms 
Tsect> = mae 

WF Ch - O18) 2, 2.3 
TS6010382 © RaTiie Ww 
FORtfesBr = RTI lows 
‘Cont nae 

FSSivGs © RAST: 
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Ish 


CARD NO 


Pas] 


(PUT LISTING 


aann 


ananana 


wy 


anaaan 


MSTOFLOM CHART SET - SHEL 
CONTENTS 


TSStS0) = THIt 70) 
1F% © 16M > IBS 
CML FRITS C1, 785109, 100.1F%) 


CHECK FOR DELTA PIVOT CAC CLEAR TSS. INT (1-50) 
OO FS 11.50 
Tetehe ¢ OCI3? 
TSscl) = OC1s) 
CONTINUE 


IF (OYPVT) 770,770,750 


BO DELTA WIS 
CAL OLPVT 
SHTt3) © TSS(28) 


RESET $C REGION 
OO Wi 1*5.WO 
Woale » tscid 
CONT HUE 


WOVE OELTA WT SUMMARIES 
*SAVE ON ACOS 167, 188. 189° 
FINA LOC FOR SUBR PRIO WILt BE CO1000-099)¢ 
00 771 191.50 
TSS(1+50) © TSSet) 
TSS(1) = Twi) 
CONTINUE 
fy © IGH + 186 
CALL BRITS (1, 1SSC5), 00, IF 4? 


o°OP VOT WT, DELTA WT PRINT--SME 10 AS PRIA IDeee 
SET Ne2 FOR DATA 
SET M2 FOR PRIH PRINT--TEMP--- 
Me NDI2) 
iF (OYPVI) 763,763,781 
1F CLPA) 783,783, 782 
CALL PRIN 


*oSETUP NOOM=1 EXIT. TEST FOR TYPE A PRINT?? 
CORESET THTIE- 100), TSS‘ 1-100) FROM THi701-9001e«¢ 
00 Fe [1,100 
TWTt1) © Twel+700) 
TSSth) © Til e800? 
CONTINUE 


SONDOW 2-5 EXIT WITH TEST ON BKPRT*® 

SECTIUS WT DATA IN TS5( 1-59) HAS BEE RESET BY CNSTIRG 
IF (1PA) 799,799,791 
CAL PRIA 


acogxitese 


#e°SET RETURN ID 30 7 FOR NORMA RETURN TO PROG?T® 
wUSC(39) = OCF? 


WING AND EMFCIAACE MOOULE - 


CNSR3SI5 
CHERIDIG 
5R3917 
OGAI919 
CNSR3G20 
CNSR3930 


Coeccccccencarsutscesseusseuvesccsrseucassecneresecesvsusvesnccuscussase 


4 
c 


ee eeeSUBROUTINE PIVOT seece 
SsePIVOT STRUCTURE SYNTHESIS AND WEIGHT cVALUATION®*© 


SUBROUTINE PIVOY 


GEVISION---01-21-86 -- COMMERT TO 4A-G14% FORMAT 1STR? 
QPULPTOS ORIGING 
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ey 


in 


O6/1Is DUT Lista AUIOOLOM CHART SCT - SHEEP WING AO CPTI MOLE - 


CARO aeue CONTENTS oeee 
1820 c CONVERT TO FORT Iv mac 1972 00000030 
wet ‘SUBROUTINE F. OT 00000040 
ieee c 
25 (COMMON TCON(6220) , THI 900) 00000010 
ney COMMON /IPRINT? 1P160) 

825 ¢ 00000060 
1826 OIPFENSION 1120601. 012060). CO20001, Si2001, PFTLIGO) 00000970 
is?7 1, ASS), «TSECK200), ALTPMC TL), WLIPVENTD, «YSIRCC EE) 00000060 
i828 7, TOGHE 3) .OOMES) .NDEIOO) Pivooos! 
1429 B.OMTLPHIS) . 10009) SINDIG), COWI6> 00000082 
1430 c 00000090 
wh EQUIVALENCE atcoricny, Tones 00090100 
is32 1, €TC12) B21, (Ti 38), TAvo), «T0707 FIP TR. oo00ur10 
1433 3. 61677) FNTRD, (TC78) FIMTRS), «11h MLE 00000130 
inn AL 47695), CPVTD, (TOD) YSTRPD, #1t$2),.cR 0000131 
655 B. CTCIHGd SHEL he, ESINDCS) SINEAD 00000132 
86 C. (10146) ,COFOLLE), §«=6005013) .COSEAD 00000133 
i437 4, Chetz2a,Tawetn 00000140 
Wwe 6, (16900) ,vRvTI, CTEGOL) Preto, eregOOus Sean oo00c16¢ 
i839 CQUIVALEME (OMILPLL) .COLTGOSI? 00000162 
40 1, (OMILPi2) Cru, (OPNTL PES EC), COMTLPC LO) FTG) o0000163 
set 2, (OTL PET) RO), (OMT Pine) Ftun 0000016" 
We 3.101190) ,RAIFSU), (OL191) RHOPIND, (OMILPCIG) FSU) 
td c 00090170 
~~ EQUIVALENCE 1Pte Gb evi. IPTCIO) PYTD 00000190 
i445 A, IPT(B) .PVTVi, 1 (100) SP aes: o0000191 
14946 8, (OxPVT PTSD, (PTt2) .CKECD, (PTC3) ARM) oo0001se 
iss? 2 . (PT¢ 38) OTD, (PT C39) SSINDIMD 00000200 
ee 4. {PTI4GO) ,COSDIH), iPTIS) £00), 4P1695) OTF 00000210 
19 %. = «PT(56) S00), (PT(66), O01, «PT(691 ,EDIST) Ooosa220 
1450 5. C1GHNDISTI. INCASE ,NDIGOI), ANPAGT .NDIBS)) Pivoo22t 
145 6. CTOGHCL) O(G00), HOGI LH .O1IG20), (OPM, Theor) Pivoo222 
mse % conn Thea), (BRPRT OOP d, CED TCORNGI2h1D Pivouees 
53 c oo000221 
¥ 1 EQUIVALENCE ETCOPMESI2ED COCEDD, «CCOLISON) TSECAL OD 00000222 
6s 1, CTSECCDD ULTPICEDT,  CISECEIZ) CA TPVERDD, CISECCIEG) .YSIRCEID) §=O0000223 
1656 c 000002 
1857 C MOPENT «© ULTPM, SEER + IPY AT STATIONS YSIRC cones 
iste C CLPTHS AT TSECISS Tew 66) o000022) 
689 c 00000227 
1460 c 000002 32 
i661 CONVENE (S195), wrth) 0000020 
Vote! 00000.~.9 
ise EQUIVALENCE HTCOMI2OE1) Orne 0000028.0 
isG 1. (Otte ACD, (01125), FSL0Cp, 100126) Ko OR) 00000.70 
4665 2. (01127) €a 0c), 100195) FORE 00000289 
866 3. (00198) ,CGPVT>, (01199) Or, (D200) OVP WT? 0060030 
iso? *. (D201), APVTr, (01202) THT HOD, (01203) THAR TD 00000500 
1468 5. (OC240) MAREAD, «= (OF 241) WARD, (DteNe) WS) 00000310 
1469 6. «= (Drevds WoC), (D(244) WTRD 1D12N5) .WSIG) 00000320 
1470 Fe (00192) ,.CKAI, (01193) .CKED, 4OC1Ge) .CKCD 00000330 
m7 8. = 16156) .0P1). (06157) OPQ), 100189) PERF TUS 00000 40 
mye 2. (01186) CCP TD Pivoosy 
73 c 00000 330 
14% EQUIVALENCE (DLT) 01D, (D12),02), 1DES).03), (Ot) 0M) 00090360 
6s 2. (005) 05). (016) .06), (017),079, (D8) .06), (0193.09) 00000370 
6% 2. (Otis DIO, COCEDS Obi), (OCF2) G12), COENS) PLD 90000330 
1877 c CLEAR ANGHER LOCATIONS 0091000 
78 9 00 10 i-t.5 00001010 
wae 10 AS111+0.0 00001020 
1460 c TEST IF PIVOT CALC. REQUIRED 00001030 
er IFiOYPVT) 999, 999, 20 00001040 
1se2 c 00001041 
ise3 20 IF IOYPVT-DI) 21.22.22 00001050 
1s 21 YPvI = DYPVI * B02 00001060 
hd 00 10 2 00001070 
1966 22 YPVI « OYPvT (0000;080 
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2297 EQUIVALENCE (COLE OND THTLLdD, (OL OX, 1¢186)) 21065290 
ae A OTMT C252) CELCTID, «— CCOLESOLD TSECCI ID, © CTSECE166) ,YSTACI1}) 24065300 
an ¢ 21065310 
2300 EQUIVALENCE (O11) NDI), (ND(2) D2? 21065320 
2 0, €ND03) NDS), (ND(4) ND, (NDIS) ,NOS) 21065330 
zme 2, 6616) ,NOG}, (NDt7) NOT), 1ND(6) NDB) 21065340 
233 3. ¢ND(9) .NDD), (NDI10},NDIO), COOCLDDNDLLD 21065350 
Cia) %.NDU12),.NDI2), (ND(26),m), (NDI29) KD 21065360 
2305 S,(MD630) 0), (NDCSID,ND, (O47) 109 21085370 
2308 ©, {ND(S5) , SEC). 411ND156) ,NOOH) , (NO(S7), 1GHD 23065380 
2307 21065390 
2300 
ct] c 
210 16 ¢1P (26195001 ,5001 ,S002 
m3 $061 CONTINUE 
ae WRITE (6,600) 
ais 800 FORMAT (INI. 30X.16He%" TH ARRAY °° .43x.20He* DLPVT - IP(26) 9e7/) 
a 00 O01 Net .9L9,5 
a5 tien 
e368 2a eneoe 
m7 UF CTWCMD © THIENOS) © FINO?) » Trio 3) © TWiNe4) 1801.80! 292 
i O02 WRITE(6 .SOSIN, (THK) KeLEL2) 
a319 003 Formuti 16 .5£ 18.6) 
e220 G01 CONTINLE 
emi ‘$002 CONTINUE 
chee ¢c 
a3 
ft a] ¢ CLEAR THT(3Z1 THAU 400) 2108300 
mw 00 18 1-1. 70 21065410 
ci | TwTi e330) © ZERO 210820 
a2? 10) CONT IMUE 2108%30 
ams 210039 
ae SETUP RT. RIB DATA 2106540 
ame f= (G41 0°ND10 21085450 
ai WuT1 328) © COI )e3%) 210860 
aw THT C3291 © CDL16335) 21068"70 
ax33 ToTt330) = COC1+336) 2100580 
an e 210890 
m5 WuT 1398) = PTC 701 21009500 
et | TWT( 386) © PTI70)/COSEA 210essir 
a7 2108219 
ame © INBOARD EDGE PIVOT STRUC. IN STRUCTURAL SYSTEM @teclri* 
em TMT139B) = $125) 21089520 
me TTC IST) © $1251 /COSEA 21009530 
mi = OUTBOARD E0GE PIVOT STAUC. 21063535 
ame 


COMPUTE WIDTHS, SETUP QUIPUT DATA---CEOMETRY---------21085940 


2456 


verre = 


L Alaa) 


CARD NO 


2n3 
Zo) 
2m 
26 
2:7 


233 


INPUT LISTING AUTOP LON CHART SET - SHEP WING AD CMPEINAT POOLE - 
esee CONTENTS esee 
c TSEC +551 = WIDTH AT POST 1PBO/RO STATION, YSIRCEII 121066550 

TSEC(N7°HIOIH AT SRO PT. IN FROM TIP 21065460 

21064569 

THTISBLD © (TSEC (471-FSEC USS IZEVSERCE 39-¥SIRCCOULED 21065570 

c 21065579 
© TANGENT OF WING BOX (ASSURE STRAIGHT STRUCTURD? 21069575 

THTthOOd © CISECI5S) - WCSECI/BIO2 21065580 
TS$150> = $125) 21069590 
TS5149) © PTE708 21005600 
TSSi4G? © WCSEC 21065610 

ice NOI 21065620 

2100629 

SET Wel FOR WT CAC. [ICa2 EXIT - NOCSEC. 21065630 
21065640 

IF CTWTE399)- BId2) 410, 140, 130 21065650 

c 21065660 
210) TSSt4@d = 1SEC1(55) 21065670 
120 TSSt47d = WCSEC © THTINO0) TIE 390) 21065680 
GO TO 160 21065690 

130 TSSt6Od = TSECI5S) © CTWT(397) - YSTRCCIODD © The 3a) 21065700 
c 21065710 
WO «IFC BIO2 - TWIC398)) 150. 120,120 2106570 
c 21065730 
150) TSSt47) © TSEC(4H) © LINT(396) - YSFACIAI)) © THTs3ar? 2106570 
c TEST FOR LOCATION OF PIVOI 2100970 
160 IF «¢ B102 - $(25)) 170, 600.600 21065760 

C eww eeeeeeeeeeeereeereene ene eee ee eee 6 eo 821055765 
C PIVOT OUTBOARD OF @1/2 21065770 
c SETUP PANEL WICAC. 10 P7tH1S. 21065780 
170 fen 21065790 
200 =TWIt383) © YSTACIID 21065800 
THTt3BO1 © YSTRCELOND 21065810 
TWII395) © THI 303) 21065820 

C TEST YS OB WITH Yites) 21065830 
21065840 

UF CITE SHO) - THT E7970) 210, 440,440 21065890 

c 21065860 
210 FF CTMTC IST UT. TWICE SH) TTC SISO TNTC SOT 21065870 
€ 21065880 
THIS) © THI¢382) 21065090 

c TEST (hOARD ¥ 21065900 
OF CTT C30) - THT 39500 20,240, 250 21069910 

c 21065920 
¢ SET iC*2 FOR EXIT ON PHELI2) CAC NO C-SEC. WT. 21005930 
PAMEL WIS<WIS/SIOE 21065910 

amo IC » Ne 21065950 
Tub SHep © THTE396) 21065960 

250 TWIT 393) = YSIRCIE)-YSTRCI LOS) 21065970 
THT( 392) © THTE395)- THT SE) 21065980 

TMTE SIT) © THT C3) - MTEC 382) 21065990 
TWTI3900 © TWTI3S23/TWT1393) 21066000 

TTC 3B9) © THTCS9I NTMI C3931 21066010 

TUT SO) © CTT C 395) -THT 13S 1 Ae 21066020 

c 21066030 
C SETUP INTERPOLATION. 210660"0 
c 00 BOx OY 127) 21066050 
c 25066060 
260 Ket 1-1 S0+ND1 21066070 
CO 2 SNO!.27 21066080 

N= KeSNDI 21066090 

THT 388) © TwINeSO) 21066100 

THTARBTD = Theiter-THIMeSOn 21066110 

TMT C386) = THT 388) ¢ THT #387) ¢TWT 43900 21066120 

TMT1 385) © FHT! 388)¢ TW 63871 °TWT ESR 2) 21066130 

TMT Jo 330) = C THT O50 THT 38632 STHTt SON) © THT E0330) 21066140 

270 CONTINE 21066150 
€ 21066160 
¢ Cac. JIS. GHD, CELIA RIBS -- INBO/OUTBD 21066170 
c OF YPCL,Ob-¥S¢1,02, ASSUME NO CHANGE. 21066260 
¢€ 21066190 
200 THT(400) = ZERO 21066200 


2457 


Osis 


Cano 00 


as 
talk) 
Colt 
wy 


INPUT LISTING AUTOFLOM CHART SET - SHEEP 
eee CONTENTS 
iatwrisese - Twre3g7)) 290, 300. 320 


HO 


C iee 


awe 


YPrO! «OUTBOARD OF = YS(0C1)) 
THItNOO) © O1 
TwT¢ 381s = OF 
aK 
THIC35B) © THTI3GO) © THiMeeu re THES 381s 
TTC 359) © THTC359) © THIMeNS) THT I 3EI) 
THT1360) © TWT(360) © TwIMe4G) FHT EYOO) 
THEGSELD © THTI3GID © THM S72 TNT COO? 
TTC 3G2) © TWTE362) - THOM 4) eo THTL4OO) 
w 10 %0 


YPtO) INBO OF YS10(1))...400 JOINT WT. TEST INBD AND OUTBD. 
COMPUTE WIDTH OF YPLO) 
K-50 
THT¢380) © TSECE1 645) 


OF CTeeCMeNG)) 330,330, WO 
eK 

THT 1380) = TSECI1e44) 

THT C3O1P = DE - (SQRTLTSSINGI/TWT1380) © OF) 
IMT(4S00) © THT¢3B1) 


UF CThe(Pe4G)) 350,350, 310 


NO BLHD. INBD OR OUTED ... USE INBD DATA 
TMT43B1) = DI - (SORICTSS(YBd/TSECC1eNS) © DID) 
WHEE FSB = IWTISSB) © (D157) eT) C331) OC TWIKeSODe TWIK*S3}/D20F 
TMT C352) = THTC ISD) © (DIS TPOTAT (SAE IOC TEKS I be TiIKe te /02)) 
TTL 3EO) = THTL3GO) © (OCS) THTI 3819 TWIKeS7ID 


eT-BARLLWRS 
pe 1°16-N01 
THT GOO) © THIKeS2)°CDIMe2 13) 
THT 3R2) © THT(3G2) - THT (400) 
THT (3B) = THTISEL) © = OCS7I TWIT C381) STWTINOO) 


OO INBD RIB ONLY WEN ICo2 


treic .£Q. NDZ) GO 10 380 
@0 TO LOOP BACK 
00 TO 40 
T7640) © ZERO 
MTe3 41) = ZERO 
tFeBi02 - Twri398) 1 390, 520, 510 
THT (38L) = SORTITSSIN7I/TSECTI 04S) © OID - OF 
VEST PANEL NO. 
tf «nos-1) 400, 430.430 
TEST (NBD JT/BLHD 
‘Fa TWIK e961) 10,410, 3°2 
K-50 
THT C3B1D = O01 - SORTITSSINTI7TSECCLeN4) © OL 
TF CTetKoNG>1 420.420, 525. 
M=103-°S0-t 
TMT4 381) = OL - SORTETSSEN7I7ISECESS) © O1F 
TUTE BGI) © TNT C3612 TTC 381) THT 328) 
@0 10 HO 
NED PAEL 
THT CISL} © TMTCIGI) © TWiKe@7) 
x 
@0 To 530 
t-lo1 
WCl.LE O10) @O TO 200 
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WING AD (HPCE MOLE - 


aose 


21086210 
2t066220 
21066230 
21066260 
210662560 
21056260 
21066270 
21066280 
21066290 
25056300 
21066310 
21066320 
21066330 
210660 
21066350 
21066350 
21066370 
21066380 
21066390 
21066400 
210610 
21066420 
21065430 
21066040 
21066450 
21066460 
21066470 
21066"80 
2106490 
23060590 
21066510 
21066510 
21056519 
21068520 
21066530 
210660 
21086750 
21068560 
21056570 
21066580 
21056610 
21086620 
21066630 
21066540 
21056650 
21086660 
21066670 
21066660 
21056590 
21056700 
21086710 
210as 0 
21066730 
21086 AC 
216870 
21086760 
2'0986770 
21066780 
21006790 
21088800 
21056810 
21086820 
21006830 
zTiceene 
21066850 
21060860 
21088870 
2100880 
Pit] 
21e8eq00 
21easere 


OB 117 Pe 


CAD WO 


232298 


INPUT LEST IMG 


$00 IeNDIO 


$10 Twii4o0) 
Tw11 385? 
$20 MK 
$25 Twti361) 
S30 IWTt363) 
ToT C364) 
THT 1365! 
HO Turi sse: 
THT 1359) 
ToT t 350) 
TWT1 3621 


oanananan 


MJTOF LOM CHART SET - SHEEP WING AD EMPERUACE MOOUTL - 


CONTENTS. 


EXIF LOOP, CELEIE 1NBD JT. HO,RIB.MISC. AO RT RIES 
00 C-SEC. I=] 


ol 
ol 


TWTU3GED © Teire97) STHTI3SatD 
THT C328) ¢THINOO) 
TH1 6309) ¢THT (4008 
THT C3300 "THT t4OO) 
THT 1358) © THIMePe) CTHT (385) 
IWTC359) © TheMeG5seTWT< 301) 
THTU3G60) ¢ THIMe96) ¢THT! 301) 
TWIt362) - THIMeSO) * THT C381) 


COPPUIC TOTA CELIA WIS FOR OPM. §=(IC*1 OR 2 
INCL. OCLTA W IN AL COMPONENT WIS. WIS. 9L8S/A V. FOR SUM 
OPM. WTS ARE LBS/A.V. ... USE TWT¢1-50) FOR OPAL 


SETUP COEFF FOR I=1 FS beh2 Sele Kets 


THTI4OO) © DELCI3) 

deNDI NDO 

J 1 °ND3-ND2 

Ke] ND2-NDI 

THT 18) © TWIE1s 339) 

TTL S19? © ToT Cle Sei) 

TMT ¢e20) = IWT119350) 

THMTC1625) = THTCLe 7) 
TMT (Ke 14d eo THT C Le 345) oTHT (400) 
THT CKO LSD OTT Le SoS) THT (HOOD e THT C16 e7D 
TTC J0@) oe THEIR 3300°OEL IU «eT 016339) 
TMT (SD) STWTELeSSSISOKL 6S) | OTHT CLO OD 

THT E Se fOD*DEL (UPUIMTED SSS) © THILO IST) © TWTEhe 32? 


oo 560 


SBM FS.RS, UCL 


TMTGROS) © THICKeIG> © THTCKOIS) - THTCLe 7) 

TUTE LoL) © THTC POO THTCUeQreTHT i Jel) FWTCheS39) TWEET: aD 
ToT 
TUT(LeS) © THTIL0S) © THIEL) 7) 

THTCL OL) = THECLedbe TWICE e339) © THTCLe Beh) © MTC Le 3500 


= TWTCL) © THTCEOLD © THWTCEOS) 


TMT (Je10d= THT JelOdeIWT IIe 350) 
ToC he 3S) © THT + 363) 
THTt400) © OEL(17) 


S60 CONTINE 


RIB, ATT, BLHOS, SUM Ww 
FWTIS) © THT( 333) ¢ THT 362) 
TWTIG) © THTIG de THT (360) THT C355) THI SSB IO TMT ISTP OTWT 338) 


TMIC 3S) = THT(3631 012) 
TMT(30) © TWTI3GI1 
THTGL) © CTUTEDD © THTCSS) © THTC3D) © TWT(S) © TWTI8)) oO TEX 


TTS) = TWICS 3 ¢TWT E350) 
TMT(O) © TWICBIsTWTI 339) 
THT 1350) 
T1289) © TWTI339) 


TWTI251 « 


S70 Tt.) = 
1 


aa 


THT CG De THT CISD OTHICSO) oTHILSL Do THTI22} TMT IOS) o THT EOD 


IF 1c 02) 


aana 


@ TWTt25) © TWIf26) © TWII27) ¢ THTIZB) 


TEST FOR C-SEC G0 TO MOVE DATA ON 2. SETUP INBD DATA ON 3. 


SETUP FOR PIVOT INDO 61/2 
J 


Cel FOR C-SEC 


SETUP RATIOS FOR INTERPOL ATION 


600 TWII3IGS! = TWIT 399) 
OF CTHT(395).G7 8102) THT (395168102 
THT C390) © THTI99S) ¢ BIAe 
THT13O9) © THTC 39M) / B02 
TTC We) © CTT * 3951-TwT 139891702 
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21066920 
21055930 
21066%0 
21066950 
21066900 
21066970 
21066980 
21064990 
21067000 
21067010 
21067020 
25067030 
21067040 
21067050 
21067060 
21067070 
21067090 
24067090 
21067100 
21067110 
21067120 
21067130 
21067140 
21067150 
21067160 
21067170 
21087180 
21067190 
21067200 
21067210 
21067220 
21067230 


21067250 
2106 7260 
2106 7270 
21067260 
21067290 
23067300 
21067310 
21067320 
21067330 
2t0670 
21067350 
21067360 
21067370 
21067380 
21067390 
210600 
210610 
210620 
210% 30 
21067440 
210650 
210660 
210670 
210680 
210690 
21067500 
2106710 
2106 20 
21067530 
2106 FAO 
2:06 sO 
7108760 
2106770 
21087380 
2:6 7590 
2106780 
21067810 
21067620 


OB/1i7% 


CARO NO 


INPUT LISTING AUTOFLOW CHART SET SEP WING AND EPPENUCE POAT - 
eoee CONTENTS, seve 
c 21067630 

00 620 1°NDI.I6 21067640 

TWTC 388) © THI teS 7G) 21067050 

ToIC3A72 © tod 1eS5Or- THEI 398) 21067660 

THT (3062 © TMTC3C0) © THTI3G7)*THT 19397 21067670 

THEC SAS) = TTC3IG) © THE CSO7Pe THT I Sao) 21067680 

ISStho2d © THTE Se) C1 THT CES de TWIT St Sa60F 21067690 

GeO CONTINUE 21067700 
¢ 21067710 
COMPUTE DELTA WIS 21067720 

¢ 21067730 
TWrt381) = ZERO 2106770 

Ife TeIc389) LE. ZERO) THTC381) » DE 21067750 
Twtis0G) © ZERO 21067760 

We THTI390! GE. BID Tet ¢400) + Dt 21067770 

c 21067780 
c SUM HEIGHTS APOLY OELICU Ck FS RS) TO C-SEC CLF. ENTS WIS210G7790 
TSS(19)) = TRIG IBL NOTH PD? 21067600 
THTI3BG) © THT BORE TIMSOReTWES 7G?) ¢ THTESOO) CTWIS AyD 21067010 

1$51@) = TS°¢B) ¢ THT13e0) 21067020 
THTC37B) © TWHI3GLDOTWIE[G) © TRIINOO] PIRES ZO) 21067830 

TWY¢ 379) © THEI3G12¢IWI597) ¢ TRTISOOI THES 73) 21087640 

c 21067850 
TRTIG00) = OLCSHIE 21067860 

00 650) INDI .NNe 21067070 

THT O377E = OLCSEPPSTWT C16 377) THEY O0) 21067880 

TSS0 106) © OLCSITeTSSii98) 21067890 

TSSidetiy = UCSIHITTSStLelt) 21067900 

TSScl elo) = OLCSLISSTSSE Leth) 21067910 

TSSthe1G) = OLCSEI7*ISSCIe16) 21067920 

TSS(he2; © TS58142) ¢ TWILL 377) 21067930 

THT (400) = mCSt4? 21067940 

650 CONTINUE 22067950 
TSSCUb> = TSStTI) 6 THIC 37H 21067960 
TSSCI4) = TSSCI4) © FWTCS7S) 21067970 
21067980 

c SUM C-SEC TOTA 21067990 
TSS01) = CODEL SCTSS 35 ¢TSS¢4 06 TS5 65) 6 1551616155171 415516) 2108000 

c 21068010 
¢ SUM BOX . INCL RT.RIB 21068020 
G60 Twi) = TWTCh) © THTEND 21068030 
00 670 1*NDE.NDY 210668040 

TSS Beh.) = Stee LPVETed> 21068050 

TSS«4}) = TSSCHbdeTostleute 21068060 

670 CONTINUE 21068070 
TSS(46) = TSSIND) “ORL PWC) 21068060 
TSSEHED = TSSCHEPODELPVII1) # TSS¢46) 21068090 

c 21068100 
c OOUBLE WTS FOR MOVE 21068110 
00 680) 1°ND1.2°5 21068120 
THTti) © THIEL D2 21068130 

THT C1625) THT E1005) De 21066140 

TSS(U) © TSS81)902 21068150 

680 CONTINUE 21068160 
c 21068167 
c CeMOVE OELTA RR, RAIC.W MISC) IC TWIST Suree 21068168 
€ FOR CW DATA STORAGE FOR HODATA/PRID SAIGR? 21068169 
THT(31) = TWTC 3S) 210681 70 
TWI(32) = TWTI 36) 21068171 
THICIID © THTI37? 21066172 

THT( 3) © THII 38, 21068173 

id 21068179 
c MOVE PIVOT DESIGN DATA 21068160 
TSSt31) = PICS) 21068190 

c = CiPh 21068200 
TSS132) = PTIQ) 21068210 

c 2 mR) 21066220 
TSS¢33) = PTCIOD 21068230 

c = OP) 21068240 
TSS( ed © PTIGND 21068250 

¢ = LOW) 2106 d260 


2460 


06/11 INPUT LISTING MJTOF LOW CHART SET - SHECP WING ANG CISTIPINE MODULE - 


— 
CARD 60 seve CONTENTS eee 
2627 TS$¢35) © PT165) 21068270 
2628 ¢ Fm 21068280 
2629 TSS(35) © PTIGE) 21068290 
2630 c = P10) 21068300 
C31) TS5¢37) = PT‘68) 21068310 
aye € 2 PCDI 21067 20 
2633 066530 
an 699 RETURN QPvws 0 
2635 wo Oper 39 
2% 
2637 ¢ 
2638 c ose eGUBROUTINE PRIA 
2639 c *¢°QESIGN DATA PRINT - TYPE A TORQUE-BOX SYNTHESIS SUMPURYs+e 
20 c 
at 
2642 c 
23 SUBROUTINE PRIA PRTADOIO 
26N4 c PRTADNCO 
2645 c eeeTYPE A PRIN!--OESIGN SYNTHESIS AND HEIGHT DIST SUMMARY*PRIADO IO 
26 ¢c PRTADO4O 
27 c PRIADISO 
248 ¢c PRIADIGO 
2049 c PRIAD170 
2650 c PRTADISO 
265) COMMON 112060) 012060) ,CD/2000) ,ND1t00) PRTADZ00 
2652 COMFON JHISC/ xm15C1 100" PRTAQZ01 
2653 c PRIADZIO 
Coa) DIPENS IO OC 1100), TOC (200), TSC t4209,7SS100) .THTCYOO) ,FSLC%300), PRIADZ30 
2655 1TC1Od ,TOC4O) ,TRIND?, PRIADZSI 
2656 2YSIRE C11), TBHPIC11) GIRODIHI), PRIADC >? 
257 SVOGH( 3) DGS), PRIADCS3 
2658 STOMVILED TOMI LE), TOWTCL ID, PRIADC 4 
2659 SA TPVEDED UL TPR LE) UL TPTOti, PRIADCIS 
2660 GULINVCLE) UL TAC LED UL TNT OLED, PRIAD2 36 
2661 TRUIIEE)  YBUECEE) WBUDCII),S LOCEDD, PRIADS 37 
2662 Mavis PRTADZI9 
2663 c PRTADZ4O 
C6 PRIAD2SO 
2665 EQUIVALENCE COCCED OCI4O12)  CTOCCLD TAP Per dd CTSCOLD, Feasie, PRIADCGO 
2666 DCTSSCHE TON9G19) CTW EE) COCLIOEID  CTSECES? COCISOLD?, PRTADCGI 
2667 2CTCAND, TH9GOI) CTOCL) 1197029, CYSTRCEL) ,TSECCIEBDD, PRIADZ62 
2658 SETOGMCE) .O(BO*), (OGHE1) 0610202, 1OPNZ. 16208), CONNZ,TiOTDD, PRIADO63 
2669 MCTROLD.TON300)) CRED) ISCIBSID, PRIADOEY 
2670 SCTONVET) .COC 19681) (TOR 1) ,COCI9799), CTONT EN) .CO119900), PRIADCES 
2671 GIULTPVEL) TSEC C120) CULTPMCET, TSECCLD) SULTPTOD) TSEC EIYNDD, PRIADCES 
2672 TOL TNL) TSECCHT LD) CULTNMEDD TSEC C1220) CULTNTULDFSECEIS599,  PRIAOZ67 
2673 WCYBUICT) TSECCI3SI)  CYBL ECL) TSEC CIB). CTRRPICLD Teor), PRIADCGS 
26m QC YBUDCL) T6730. CYBLOG 1), 166909), (GURODEL) T6608) PRTADZb9 
sy) c PRIADSTO 
26 EQUIVALENCE (NCASE ,NDI601), (NOOW,NDI56)). CIGH.NDI61I), PRTADCBO 
2677 1430P2 NDC), C1CPI,NDIB0r), CSOPP NDIB11),C1OP 1 ,NDIBO}D, PRIADCBI 
267m 200. NDC2]72 CL NDE2SI TK ND 3000, 0N,NDC SLI) 1 .ND(2BI1, PRIADZB2 
eon SUBVIO, TIS7)), PRIADZBS 
2660 S(NPACE .ND(85)) PRTADCES 
2681 c PRIADCIO 
2682 c PRTAD300 
2683 c PRIAOHO 
asad c PRTAD WS 
265 c eeeoPRINT PAGE HEADeee PRIAD SHG 
2686 ¢€ eeeTEST FOR TYPE OF ANAL YSIS*** PRIADIN? 
2687 met 
26a $00 WRITE(G IDO ONT ASE (RIND Nel 6? 
2689 $00 FORMAT in HAY 18. SX.BAIO.)*ESHE® PRIA - IPiD 
2690 c 
2631 IF ENDOW - 1 )5U1.501,505 
aes t 
233 S01 IF UtGE - 29490 492,490 
Baa] ¢ 
eH 990 WRITES .491) 
2696 SOL FORMAT tHe , f03x,6H30) oe) 
2697 00 fo 520 


2461 == 


rich 


CARO NO 


TRPUT LISTING 


&O2 WMRITEIG, 502) 
S02 FORMATIINe .103X.6409) °4) 


MUTOFLOW CHART SET - SiP 


CONTENTS 


00 10 S20 
¢ 
S05 ICG - 2915.910.515 
510 HRITECS.5LI 
SUL FORMAT CIs, 105K, GHOT) 998 
w 10 820 
$15 BRITE (6.516) 
S16 FORMATULHe 103 .GH2BE 97) 
¢ 
SPO NPACE *« NPA ed 
PRITC IG, LOL INPAGE . OR C02) f°, 16) 
(Ol FORMATIGH PAGE 1%, 1X, GAI0) 
c 
WRITE 16,1900) TOP 8 97008, IGM OGRE IGHY .DPHZ .DNZ 
1900 FORMAT (27x, SHIOPL= 01 6H NIOW= 11 SIGH SPRIADIS 
12,6H OG4F9.1,04 NZ°0F6.3,287-79.3) PRIADTO 
c 
GO TO (822.530.532.550) 1D 
¢c PRIADS 
$22 (F iNDI2? - 1OP1) 1901,1901,1910 PRTADwO 
190) IF INCOM - NDA3PP 1910,15°527,1950 PRIAD LS 
tude If C1OPP - OPI» 1903,1906,1°03 PRIAD370 
1903 WRITE (6,190 9TO(C2) PRIAD3BO 
co To 1910 PRIANIIO 
1904 FORMAT CIHe 12K, 401 PT EM. 1d PRIAD.OD 
1905 FORMAT CIHe,12x.8H IPT PI-te dt PRIADKO) 
1906 WRITE (6,1905)TO1e2! PRIADSOS 
¢ PRTADHO9 
1910 CONTIN 
c PRI ADHSO 
¢ TYPE A PAGE PRINT SECTION VATA AND KEIGHT SUPPUILS -- 1D*2  PRIADNGD 
© LOCK 4 --SLCTION DATA, ROOT 10 TIP PRIADTO 
c PRIADED 
200 WRITE 16.201) PRI AD+90 
201 Farmar ¢7EH -#2-GECTION DATA ST. REGUS. po+KIPPRTAD‘OO 
1S, FCPVKSI-08- JILOM SECT oh tO CURT FRI 10 
A THY TS T-U T4 TSIR LRIB BSTR NOS HSIR MS THRSPRIA S20 
» PRT AL 330 
PRIADNO 
c S1 U5 FOR ST. PRINT. PRI ADO 
Je-NDI1) PRTIADSEO 
PRIADS70 
PRIADSEO 
PRINT LINES L- IT, 17 ETEMSA INE. DATA 2-18 FOR EACH SETPRTADL OO 
202 00 POT NIT PRTA0B00 
Lene PRIADGIO 
KL 16 Rt A0G20 
WRITE (6.20008, TOUT PKL) PRTANG30 
203 cOMTIME PRADO 
20s FORMAT (3K, 12.6 7.2.F6.2,.%F7.2.96.3.66.2.66 §,F9.0.75.2,276.3) PRTADESO 
¢ PRT ABEO 
¢ PRTAD6 70 
¢ PRINT. 
c PRI A070 
c TEST FOR TYPE OF DATA PRIMED 1eST.. 2 EXIT ON2 PRIADTIO 
IF (42-0121) 207,209,209 PRIADHLU 
c prraneo3 
c ST P-2, TEST FOR W. MOVE DATA FOR PRINT PRiTA0BI0 
207 eemi2) prt ane2o 
WF CYocema» 208.203.208 PRIADG30 
208 waite (6.2060) PRTAOBHO 
2080 Foreat ist -00-SECTION DATA - STIFF. REQHTS.-°*- sPRIADI.O 
PRIADBSO 
TEST IF FLUTIER STIFFNESS PENALTICS EXIT prtana70 
00 2081 I+1,4% priacsso 
If feDC1e@ay - OFtY» 2083.2081 2083 prtases0 
208: CONTIME 120900 
write (0.20821 prtagsio 
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WINS AD Ete POUL - 


OBI 


CARD ND 


eu 
2770 
277 
ev7e 
e773 
2™|™ 
27h 
27% 
em 
27” 
2733 
2780 
2n1 
ee 
2n3 
27K 
276 


INPUT LISTING MITOFLOM CHART SET - SHEEP WIG MO EMPENAE MUAE - 
esee CONTENTS, ecco 
2082 FORMAT 1S4H0 -990-NO FLUTTER STIFFNESS PENALTIES-9¢* sPRIADSCO 

1/6H0 ' PRTA0930 

@ 10 209 PRIADHO 

c PRIADISO 
MOVE STIFFNESS REQGHT DATA PRTANIGO 

2083 00 coe 1=1.198 ORTADI70 
TCEDPCOUT 201 PRI AN900 

2084 CONTINUE PRTADI90 
@ 10 202 PRTAIOOO 

¢ PRIAIOIO 
¢ PRIALOCO 
€ MOCK 3 -- E1.G) SUPPURY CINCL Wo) PRIAIOSO 
c Ct .6371 000,000,000 PRIAIONO 
¢ PRTAIOSO 
209 BRITE 16,220: PRIAIOED 
c PRTAIO7O 
220 FORMAT (G0HO +**-SECTION £1.G0 SUPRUARY (£1 ,GJ*1109-SPRIAIOGO 
yd-28-71 108 Tes sci Sict2 SECT 3 SECT SECTS PRIALOIO, 

2 sct6é SECr 7? SECTO SECT DO SECT 10 SECT 1A) PRIALIOO 

c PRIAII120 
c STRUCTURAL E1,G) RLOMT -- 3 LINCS PRIALL30 
¢€ PRINT DATA FROM 15511) - 159/55) PRIAIINO 
c PRIALISO 
¢c PRINT DATA FROM TROI-33). SET UP OATA 10 (1074-9) PRTAI 160 
00 2201 1¢1,33 PRIAII70 

TREtD = COCEPOOCULS) PRTAL ICO 

2201 CONTINUE PRTALISO 
¢c PRIAI230 
c LIMES 1,2.3 = ST DATA PRIAIZNO 
c LINCS 4,5 © GJ RATIO AO FUME. DATA PRIAIZSO 
c LINES 6,7,6,9 » COMPOSITE SECTION -- ST ¢ Wo -- DATA. PRIAICOO 
c LIMES 10,19.12.13 © TW90ST) RATIOS PRIAI270O 
c PRIAICUO 
222 WRITE (6,223 TRIDD, Ved 22), ICO ROMY) sed DED PRIAL290 
€ PRIAI300 
223 FORMAT {10H GJ-ST.11F9.2,710H EL-SU.VIFV.1, 10H GUEL-ST. LIF PRIAI3IO 
19.9) PRIA! 320 

c PRIA) 330 
c TEST FOR GA PRIAI WO 
HF (GSRODCL)) 240,240,224 PRIAL INS 

2 00 2040 Tet. tl PRIAL ISO 
TROL) © GURODI ET eOCC13) PRIAIISS 
TRELASD = COEL 33H OC td) PRIAI 356 

2240 CONTINUE PRIA TSB 
c PRIAITSO 
WRITE (6,225) 10D 166670402 CTROGD Ded PRIAL 360 

225 FORMAT (10H GIS/GIW OLI1F9.4,/10H GW 119.2) PRIAL370 
PRIA) 380 

¢ Lings 6-13 PRTAI390 
226 SRITE 1G 227ICTRCLOLSD LT TED CTRCD ONT) bet bE), (COMPRTAISOD 
Db6S5) bel PEP COCO 77) Fed ddd CCDC LBB) Teh bd (COM TSS) det PIPRIAINTO 


29 COOL e2tO) del Wed, MCHC eet2ae, ott PRIAIN2O 
¢c PRIAISIO 
227 FORMAT 110H GJ-COMP.1IFS.2,710H EN-COMP.TIF9.2,/10H (GU/E LIC. LIFPRIAINO 
19.4, 710H GIC/GIW LIF 9.4, 710H TE /TSKU LIPS 4. 750H TW TSK LIF. SPRTIAINSO 


2.7108 TW /TWS LIFS 4. /10H TETAS LIF 9.4) PRIAIYGO 

PRIAINIO 

PRIAINBO 

c PRINT PAE 2 -- WT AO WT/IN SUPPURY. PRTAINDO 

ae Int = 2 

GO To $00 

330 SRITE (6.21) PRIAISIO 

¢ PRIAISID 

2st FORMAT (52H 7 0-PANEL WEIGHT SUPPURY. L8S/SIDE-**-/10PRTAISCO 

1% PANEL sn 1-B0x Le. VE. MISC. OELPRTAIS30 

2A Te RI-RIB C-SECTD PRIAIAO 

PRIA 

29°20 051 1BD/OBD WIS TO LB/SIDE AT NODMRIeee PRIAIDSD 

QF ChOOW - MOLEI? 262.282.2421 PRIAITSO 

Bez THTISO) © THT ISO) D620 MtVIE PRIAISS! 

WTC) 8 THT ES 012) VID PRIAISS > 
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Otten Na REN RE PRE LE BT Pathe @ TAMA OD TP PE 


et 2 EINE O LE, 


OLIN 


CARD NO 


2mN0 
Call 


(NPUT LISTING AUTOFL OW CHART SET - SHEEP 
ween CONTENTS 


00 e200 191.5 

TMTC Leo) © TWIT LeSe1 70621 WHVID 

TUT OTe ieee © THTET SINS 1/002) hbvID 
220 CONTINUE 


eoPRINT 10 Pra WIS PLUS IKDO AO COOr* 

AA WRITC 1G SUSHCCOC LO LST? Deb Bd EWTCS0) CDULSOs COC ENED, CIWTE 
Ute) SP OCCS) THTISHE 

c 

ONS FORMAL AM TOTAL IS 2.7 1t 2.210.279 2.60.2 Kr 
OH INBOLF IZ. 2.F Lb. 2.28 10.279 OF 10 215K F 0.2) 

OWY FORMAT C412 EXE IO OFT 2.e710 2.F9 2,710.2) 

@S FORMAT (1 OBO.Fi2 2.11 eof lO 269 O.FIO.2 FI et 


c OPALS 1°10. DATA IN COUIN2- 201) EG/BLOCK, RI-TIP® 
OO 246 Ne1,10 
Lo» NENDIB) 
Ket - NIG) 
WRITE (6,Q49IN, (COC ea4Id TK LAID 
246 CONTICE 
¢ 
c *080 Prt ¢ 


WRITE (6, ANSdCTHT CLO L44) 85) 0C(3) THI ISO) 


**ORESET 1BO/0BD PHL WIS ON NODW=|ee* 
1F (NODH - NOEL! 267,247,250 
247 THICSOI © THT(S0) O12? HVID 
THT CS) © THIGH O12 WIVIO 
OO 246 [*1,5 
THT CL eS4) © THT EL eS) 9002) /WHVID 
TTD SIN) © THITL 6144) °O12) /HHVIO 
248 CONTINUE 


TWITCH) © THT CHD D1) WHVID 


*OHWT/IN OATAS® 
250 WRITE (6,051) 


251 FORMAT (40H 3 00-WEIGHT/INCM SUMMARY €* /B4H SEC 
1 TOTAL ¥-BOx LE TE. MIS. OELTA 
e@lrees 1 

¢ 

252 FORMAT (4X12. 0F12 4 FAT 6 10.4,289 4 FIO HF 4 

c 

c DATA IN TC12C0- 340) 41 SETS OF FL ITEMS, RI-TIPS® 

C “PRINT FIRST 7 ITEMS OF EACH SET* 

00 253 Ne1,11 

woe NENDOLED - NDIIOF 

t= K + NOB 

WRITE (6,202)N, CTCC1¢219) Fee .L 0) 

253) CONTINUE 

c 

c 

¢ *#eDE SIGN LOADS SUMMARY e+® 

€ AULT POSITIVE AND NEGATIVE LOADS AND 1-G TOTAL Owe 
WRITE 16,261) 

261 FORMAT (42H -**-OESIGN LOADS SUMMARY-¢8- 7/110 
1oeviut? eMtUL TD oT) “VIULTD “MOAT 
27) VOMI-G)) DWH T-GP TOME G90 

c 


262 FORMAL INK 2D FUSS Fd U2 ELON OF a ne 


c ULT LOADS STORED TIP-ROOT. 1-G DW LOADS STORED RI 
00 263 Nel, 
Ke NDII2) - 
WRITE (6 .262N,ULTPVIK) UL TPHOW) UL TPT AK) UL TNVIK) UL TRACK 
WC), TOMVEND , TORMEND , TOHT END 

263 CONTINUE 
@ 10 292 
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WING AO EAE MOA 


oeee 


PRTAISSS 
PRIALSA 
PRIAISSS 
PRTIALSS6 
PRIAISS? 
PRIAISES 
PRTAIS7O 
164) PRIAISOO 
PRIAISO: 
PRTAIS99 
0.2, /7PRTALESO 
PRIAISII 
PRIAIEOO 
PRIAIGIO 
PRIAIECO 
PRIAI6B30 
PRIAIB4O 
PRTAI65O 
PRIAIG60 
PRIAI6 70 
PRTAI6G0 
PRIAIB90 
PRT AI 700 
PRIALTIO 
PRIAITIO 
PRIAITID 
PRIALT2O 
PRIALT21 
PRIAI 722 
PRIALICS 
PRIAL 724 
PRIAI TCS 
PRIAI TCO 
PRIALI27 
PRIAL720 
PRIAI 729 
PRIAI730 
PRIALMO 
PRTAL 50 
un PRIAL7GO 
CONC. PRIAL770 
PRIALTAO 
PRTAI 790 
PRTAIBOO 
PRIALBIO 
PRIAIOCO 
PRIAIOIO 
PRTAIBNO 
PRTAIB50 
PRIALOGO 
PRTAIO7N 
pRTAIBA0 
PRIAIE90 
PRIAI9O0 
PRIAISIO 
PRIAISCO 
PRIAISIO 
SECT. PRIGIQND 
-TCURPRTAI9SO 
PRIAIS60 
PRTAI970 
PRTAI9G0 
PRTAIS9O 
-TIP® PRTACOOO 
PRTAZO10 
PRTAZ020 
ULTNTIPRTACOTO 
PRIAZIO 
PRTACOSO 
PRTALNEO 
PRTACOTO 


ce 2 eT SCENTS OPE “PA ov NAS 


Sis INPUT LISTING MUTOFLOM CHART SET - SHEEP WING AD CHPEMUGE POOLE - 
CARO WO eeee CONTENTS, ese 
ae watacio 
a2 c eeorlES! FOR Giz) FOR GEOMETRY PRINT eSee PRTAZI4O 
2913 ¢ eetEST FOR ZERO GIL) AND GWI2) FOR GLOMLIRY PRINT** =PRTAQISI 
zoin 270 IF tie) - Ge? 2701271 2702 PaTAZISO 
as 2701 LF 1OGWILd) 2702.2702.299 PRIAZISI 
ave B72 WF COGHI2N) 271 .271,299 PRTA2IS2 
2017 ¢ PRtA2i59 
eae 27) IF (MOON - MOI2)) 2720.299,299 PRTA2Z160 
ais c PRTAZIGS 
aa20 2720 IND = 3 
e321 @0 10 500 
aa22 PRIA 
aa23 PRINT GEOMEIRY PRIAZIOO 
Ca] $22 WRITE (6.2732 TSEC 11 7B), TSEC 155), TSEC (G6) , TSEC (08), TSEC IPRIAZIIO 
2925 199), T6100), YROCEI). VROUSI? PRTAZ200 
2926 273) FORMAT (4@H0 -0e-SECTION GLOMETRY SLPPIARY-¢*- 10204 PRIALZIO 
2027 t SECT. YSTRC WIOTH DAVE ors ORS C-AERO | PRI ACLCO 
2228 2 y-w Ya al ROOTAF 10.3, 89.3.F10. 3. FPRIAIZIO 
e020 wey) PRIACMO 
2230 2M FORMAT (5X. 12, 1%,2F10.3. 89. 3.F10.3,.2°9.4) PRIAZCSO 
aasi 275 FORMAT (6H TIPA10.3. 99 ¥.F10.3.29.4./71 PRTACCEO 
e932 c PRIACZTO 
2933 2% 00 277 N=2,10,1 PRT A220 
2am KeNDIL2)-N PRIAZC9O 
an BRITE (6, 27OIN, TSEC (Ks 165) , TSEC IK O44) TSEC (K #55), TSEC (KPRTAC300 
20% 1677), TSEC IK*BB) , TINC99) , YBUOIK) , YER DIK) PRTAZ310 
2937 277) CONTINUE PRIA2320 
2038 PRTA2S3O 
2939 PRIAZWO 
20 278 WRITE (6.275) TSEC (166) , TSECL4S) , TSEC (561, TSEC ( 7B), TSEC IPRTADISO 
amt $@R) ,T18s0, BUI), YBLOWI) PRTA2360 
ene c PRIALIIO 
23 c PRTAZ3B0 
rb) GO TO 299 PRTAZSSS 
2S c PRTAZSE0 
ames c PRTALS70 
a7 c eC°PAGE 3. SECTION DESIGN YIBAR) DATA. *<¢ PRIAZO 
ene ¢ *TOTAL WT SUMMARY AND SECT J WT SURLY PRT ACS9O 
eno 292 IND = 4 
250 @0 TO 500 
om) SH WRITE (6.2920) PRIAZGIO 
emHe 2920 FORMAT (42H -9*-SECTION DESIGN Y-BAR DAPRTAZE20 
2m53 1TA-¢¢-,/4@H0 STA YOUIDO) YBUIA) YBL(D) YELtA? T8-W/IN } PRIAZGC 1 
am 2B21 FORMAT (1H 3X,12,478.4,FS. 4) PRIAZES 
00 2922 Iet.tl PRTAZ630 
we milan - ft PRIACENO 
257 WRITE (6.292101, YOUDIK) ,YBUI(K) ,YBLDOIK? YOR D(K) TEP IITD PRI ALESO 
2822 CONTINUE PRTAZGEO 
er PRTALE70 
2960 PRTAZEBO 
2961 eeTOTAL MT SUPMMARY--THTII-59),1545-14S)e PRIAZESO 
2@s62 WRITE (6,293) PRTAZ700 
2983 293 FORMAT 11H0, 48H 7 9°-RMOOT SECTION WEIGHT SUMMARY-¢°-/ PRTACTIO 
2H eH THT) PRIAZTCO 
2085 ¢c PRIALTIO 
es6s 2) FORMAT (3X,12. 9 11.4) PRIAZMO 
2067 BH FORMAT (2K.13,.5F 11.4) PRIAZTSO 
298 FORMAT (110, 46H ~**-SECTION (J) WEIGHT SUMMARY-*¢- /2PRTAZTOO 
2969 16H JSSTANO.I3,5H, Yor®.2,/64 THT) PRTAZT7IO 
2970 : PRTAZTOO 
oe71 ¢c ROOT DATAS PAT AZ79O 
eave OO 207 w1.H.8 PRTACBOO 
2973 Kew o NOB) PRTAZBIO 
aan RITE (62H, CTWTETD Pom KT? PRT n2820 
an 287 CONTINE PR1A2B30 
20% Ne SH PRIAZHO 
a7 we tS PRIA ISO 
an WRETE (6, 2R5IN, (THT CL ome? fos 5) KUTT Ce Lee) fol, S) PRTAZE6O 
an ¢ PRTAZBID 
aea0 c SECTION J DATA. MT OATA IN TSS(1-52),196-1000¢ PRTAzEBO 
ew Me MDZ) - 10PL PRTAZO90 
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Oli 1tPUT LISTING MUTOFLOM CIVAE SLT - SELF HIG AD OFT UE PORE - 
CARO NO eose CONTENTS ovee 
2962 WRITE 16,296) TOP, YSIRE er watazzo0 
2983 00 298 N15 .9 PRT ACIIO 
ra) eeu ¢ NDS PRTA23°0 
2983 WRITE CO. SHIN, CTSSEED BONO) PRTA2930 
a6 298 CONTIN PRIAZIO 
ess? ue KH Putaerso 
2908 Kk» 145 PRIACIEO 
WRITE 66 .2951N, FISSU Neer 191,52 K,eTSSELe9s fet SP PRTALI7TO 
2990 c PRtacseo 
ao G0 10 270 Pale) 
a2 Pata3005 
233 PRtAy353 
ay orEulice PRTAG TIO 
as 299 RETURN Rt 48931 
ae ND Pat s8399 
7 CoscevecccesecececeesseccsessussvrcusUSsUSSEENESCASTSSLSTOCESTCSUSESESES 
¢ 
aa ¢ eee eSUBROUTING PRINeeeee 
3000 ¢ @eeDESIGN DATA PRINT - TYRE H C-SCC/PIVOT DESIG SUS Yeee 
wor ¢ 
CeeccarsccocarevcusaSusssurcecevaeceCeRsaheaeerecseeTUCeUTAIT SS CeRTOE TED 
3003 c 
Wo SLOROUTINE PRIK Pamooloe 
3005 ¢c pamooit 
3006 c @& PRI SUBR -- IPE H PRINOOCD 
3007 c @e°PRINT PIVOT OR C-SEC AMALTSIS DATAS<¢ PRIH0030 
3008 ¢ FRTOMO 
3009 c Pam 70 
3010 ¢ wRTHo1s0 
wi COPPINN 112060) 012060) ,CDI2000! 161! C). THCSOOD Pamo2oo 
wie COMMON /MISC/ XHIS°(500) Panncol 
wo13 c eanczio 
wis DIFENSION TOC (200) ,TSCt' 20) ,1SS¢103) DCCbOo), wato22o 
ws ATMTI4OO) TSEC C300? , TOGHIS) .OGHI 3), fame) 
wis MUG) FaTeaz29 
3017 pana2so 
woe eannzsa 
wis EQUIVALENCE CTOCCLD TOL PDDD CTSCOL DE CIeb be Cb Sed) TeIS6II), «= PRTHCPBO 
3o20 NCOCEND OCIHOLDD, CTMTELD COCLIONID CTSFCrsh COCHSIIDD, PROS 
3o21 20TOGHE 1) 018013, COG) ,D6102)) , (OPNZ 16200) crs tote, PRN Ge 
3022 BREE) WHISCCOS1), PaTHO2L3 
wo23 B 1Gi,NO(5 799, INOGKI 5 13 CROP NDCBODD, PRTHOCES 
30h BINCASE ,ND1G0?} , (NPAGE .NDIGD)), (N.NDC SEED panne 
wes c PRDweTO 
3026 c wenoizo 
wae? c PRTHO350 
wee c TEST FOR YYPL OF PRINT 10-N FaTHO he 
we29 c C-SEC DATA ON WI reno so 
3030 c PIVOT DATA FRINT ON Ne? PRN 360 
331 c PanD370 
nx WOO IF tN - MDCI3) 390,390,560 PRT 390 
O33 c PaTHo+00 
wow € PRIHONIO 
us ¢ 920 -SEC WT UATASS® Pans20 
10% ¢€ ©TSS¢ 1-0) ,THTLS31-393R© PRTHON 30 
37 30 Ne NOLI2? PRTHONO 
ne i> iG Paneer 
ny pel 
wo 500 WRITE(6, 100)NCASE 
Wi 100 FORMATI SH! .“HCASE 14, @2X,13H¢* PRIH - IPCD 
Baz c 
Ws IF (NOOH - 19501 ,501 50% 
Jou c 
345 SOL IF 6G - 21490.492,490 
we c 
We? 490 WRITE(6 4911 
we 891 FORMATO He , 103% .6H30) #9) 
ond G0 10 420 
318 ¢ 
mi 492 WRITE(6 502) 
me S02 FORMAT I He , 103% .GH29) ¢) 
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INPUT LISTING 


0 10 S20, 


MSTOFLOM CHART SET - SHECP 


CONTENTS 


$05 IF AIG - 29515.510,515 
StO RIE .Sitt 
Sit FORMATS iHe 103% GH27) 29) 


@0 10 S20 


SIS WRIIEIG S16) 
SIG FORMATO IW 103% 6HO8) oe) 


WING AO CPPENUGE MODULE - 


¢ 
S20 GO: ) (522,530). 180 
¢ 
S22 wile (6,302) , TOGMC1) .OGHi 1). 1G. NOD. 10P 1 PRIHONSO 
c PRTHOWEO 
PRITE (GSR, 1 169 PRTHON70 
BRITE (6,391) PRIHONOO 
391 FORMAT (HHO © 0°-CENTEA-SECTION DATA -- LB/AV-9**- ,PRIHOWSO 
t70HO «TSS ©4-DETAIL HEIGHT DATA-**- > PRTHOSOO 
DO We MILD PRIHOSIO 
Ko + NDIB) PRTIHOS2O 
RITE (G6 S120 CTSSCND be ED PRIHOS3O 
c PRINOSSI 
Bo2 FORMAT (12x, GH PAGEL 12,138 DATA. TOGH-FB8.1.6H DGHeFO.PRTHOSIS 
OU ,GH IGE, AH NOC LILH JOPE=It.4H T-8.5) PRTHOS36 
312 FORMAT C3K,03 F114) PRIHOHO 
c PRIHOWD 
Wee CONTINUE PRIHOHSO 
c PRIHOS6O 
BRITE (6,333) PRTHOS70 
383 FORMAT (6H0 TWIT) PRTHOSBO 
DO 3 N-331,993.9 PRTHOSIO 
KeN * NIB) PRTHOGOO 
CRETE CG, St2IN, CTT END DoT PRIHOGIO 
ee CONTINUE PRIHOGZO 
GO To 599 PRTHOG 30 
c PRIHOGYO 
¢ PRTHO@SO 
c PRTHOB6O 
c PR1HOB70 
c PRINT CASE AND DESIGN POINT DATA HEADING PRTHOBBO 
S60 NIGH PRTHOSSO 
Im = 2 
@0 TO 500 
430 WRITE (6,570) TOGH(N? ,DGH(N} ,DPNZ .ONNZ PRTHO900 
c PRTIHOII0 
S7O FORMAT (2tx, 1H TOT 8.1.64 OGF8. 1, BPRIHOIOD 
in O-F6.3,64 -NZ-F6.3) PRTHOSSO 
¢ PRTHOWO 
WRITE (6 S7UPCRCSD U8 BGP PRIHOTS0 
S7t FORMAT (1H0.9X.8A10,/10X ,BAIG) PRTHOIGO 
PRTHOS70 
PRINT PIVOT DATA PRTHO980 
S79 BRITE (6,560) PRTHOTSO 
S6l FORMAT 142H PIVOI OO CELIA T.B. WT. SUPPUARY/EH0 =(1SS?) | PRIHIDOD 
S62 FORMAT (3X,13,10 10.3) PRIHIOID 
OO 563 He 1,81,10 PRTHIOZO 
KeNeNDI®) PRTHIO30 
Lid @ 16 S620N, CTSSCD) PON OD PRTMIONO 
9363 CONTINE PRIMIO50 
¢ TT REGION PRTHI060 
WRITE (6.500) PRTHIO7D 
Sie FORUl (640 THT) PRTIHLOSO 
00 565 Nt .St,10 PRIHIO90 
KaOND IB) PRTH11900 
WRITE (6 56200, CTWTELD DoW TD PRTHEIIO 
S65 CONTINUE PRTHIIZ0 
c PRTHLI36 
WRITE (6.3%) PRTHI ING 
OO S86 we 331. 991.10 PRmi15o 
KetenD(@2 PRTHI1ES 
WRITE 16 Sere, a Te PRIHLI7O 
S66 CONTINE PRT IO 
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Billy INPUT LISTING @JTOFLOW CHART SEI - SHEEP WING AAD EPPLIULE MOOUE - 


Can WO eoue CONTENTS ouse 
ua c PRMI190 
312 € PRTHI200 
a8 ¢c ORTH FeO 
327 c ext PRIni900 
28 999 AT TURN PRtHIed 
312 fo PRIMO 
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OVERLAY (10,0) 


TORQUE-BOX STRUCTURAL SYNTHESIS/WEIGHT ANALYSIS 
FOR METALLIC DESIGNS - NO. 2 
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a a ee ee a ee iadeetslnebeteenderhdhiidditienbeismreeadintndecintnitsietidashanninaaeerihioninhigina terete ye dhe nae 


O6/1Ls 


FORTRAN MOULLE 


CARD NO 


eoeunuewvs#ww 


TePUT LISTING AUTOFLOW CHART SET - SHLEP 
{LEST AUTOSEO) 
ose: CONTENTS 


WING AND FPPLIAUGE MODULE - 


CavavasecesscsrcesesssseaususeresessssescececesuuceesesevarSeueeTSeTEOOe 


c 
¢ ee°eePROGRAM CLAYIO*esee 
C 8 *PROGRAN FOR FIFTH OVEFt AY OF WINGJEMPENAGE POUL E see 
c STRUCTURAL SYNTHESIS /DEIGHT ANALYSIS - METALLIC DESIGN NO 2 
c 
Coceseevc scarce eaeeeRT RST TOTS RTS SSTESPA COTE EECTOU TOE ESCESTRESHESS TERE 
c 
PROGRAM OL AYIO 
c 
COMMON T7120) 
¢c 
COMMON 7HISC/ X4ISC1100) 
€ 
REWIND & 
¢c 
BUFFER INC24 EPCTUDD TE 72108) 
c 
IF CUNDT(249310,10.20 
¢ 
$0 CAL CNSIR 
c 
REWIND 2 
c 
@UTFER OUT(26 £00701), 78712003 
c 
IF CUNIT(249920,20,20 
c 
20 CONTINUE 
c 
Li +) 
Cauaeses ecevessses 
c 
c eee CCSUBROUTINE CNSTReeees 
C = # TORQUE -BOX SYNTHESIS/WEIGHT ANALYSIS CONTROL *** 
€ 
assesses 
c 
SUBROUTINE CNSTR r8R0010 
c STRINGER ANALYSIS CONTROL PROGRAM cNSR0020 
c ORE VISION--11-13-69--A0D C-SEC CONST. SECTION/LOAD LOOP. 01677)CNSRDD30 
id =CSID= 0.0 = LOOP ID FOR C-SEC sree CNSROO4O 
€ @¢¢OREVISION--03-13-69--KSECI1) LOGIC. SETUP FCMAX.FIMAX. o 908 CNSROOSO 
c ADO EFF WIDTH FOR NX AND WT CAC. CNSROOGO 
¢ REVISION -- 03-23-67 -- CHANGE NXUID VS NXET-9) LOGIC. KeOt469) CNSROO70 
¢ 200 INPUT T.@. GEOMETRY AND NX LOGIC N5RO08O 
¢ REVISION -- 01-17-66 -- NEW FORMAT AND LINKAGES. CNSROOSO 
c CNSRO100 
c SETUP CONTROLS FOR 11-SECTION/IO-PANEL DESIGN CNSROIIO 
c CNSRO120 
¢ CNSROINO 
COMPION 112060) 012060? ,CO1 2000) .ND( 100), TH1906) CNGRO150 
c CNSROIE0 
DIMENSION OC (100) , TOC (200) , TSCi420) ,TSS(100F THT (400) TSEC 300), CNSROL 70 
HTCCPO) .TOCHOD TTI 24? DEL IIO), CNSRO1 7) 
2VSTAC HLL) OJONTOIS? OBLHOC IS) OBKPTIS), @e0172 
BOKFCUCIE) OKF TL ETE OMOCUTT TL) OMT CII, CNSROI73 
SSLEFS(S' sta (2), OGROIM 
SorTeil2), Osos 
OVP OCLI) .VELOCLL)  VRUSSLE) VBLECIT? CEFF SCTE) DRT CAE, CNSROI76 
TIP PLC) THC E Lh) WPT WPNSUDTD TPAD) TOCHT ONY), CNGROI77 
OO SKUCIED OCSHL OLS) CTSKUCT ND Or C119 OCBSTETI? OCNOSTI IT, CNSROI 78 
BOCLSTILL? OCHSTE' 1) OLCFSCI1) OLCRStI1) mor ray) CNSROI79 
¢c CNSADIGO 
GA0190 
CwSRO200 
EQUIVALENCE (OCC EH. OCINODID CTOCEED FOE MTED A TSCONE DEIdd, CNSR0210 
OCTSSEDD TULSG TDD CTWTAND COCNIOND? CTSECTID COVTSOLIe. CNEROZ 11 
2CTCHED TH9GOI) TOUTE TEG2OI7 LITE TENSEI, cNsR0212 
DAYSIRCI1) TSEC CIB6ID, Gesroe 13 


2470 


OB 117% 
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SSoRees cre ssseseReseereguyaryavrvrunae 
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103 


ise 
ost 


INPUT LISTING AUTOFLOM CHART SET - SHEEP 


annn 


CONTENTS 


OBR TODD ON 7b) COLL EN FUTI2510)  eOYPVT .DIe001), 
SOL CW .OCL CIPD AOL CU CEL EGP) WLEL TS CCL OLS) F CELAS DELIA TI, 
1K MOCSOND IM ADCSIND, CIPA,RDI2391  CIPB IOr aed), 


Gtr woregee 
7ALOPL NOU PE C10P.KDIB991 .C10P 1 .NOI821), 

OCIC .NOCHBD) ICO, NDING) CEM NOSED, 

01SEC .NDI55)). (NODH,NDI561), INCSEC .NDIG8H) GIFS NOI9SD? 


EQUIVALENCE (C100! 007999, 1S .01397071, Ch900 01 SGI, 
UCSHOCP TTD 014230) COBLHOE 1) 016503), COUONT IID O1EGE90, 
QUDNUE LD 0693109 AOFOL AT) DIG20), COKE CULT DIG 3900, 

SeOKF IL €19 0610081), (DOPTP DUE 39901 ISLCFSI ED OVLN7OID, 
SICOLHD, BHII2001) , (CJONT ,THTC201)3, 
SevBUL CD)  TSECCUS32) CYL ICL) TSECE IEG) > MORKTIAGD TAF IID, 
GQLYBUDC 1) 166799). CYBLOUT) 166901) WOLFF ECD Tt60009, 
BUPMLS1 0) T6459 CTPA WEL) 116560) STOCHT IL? Te 78990, 
SCTBH LOLS TAS) CPG LAE) Te 77R rd EP) Gd 


EQUIVALENCE (DCSKUCE) D6 7281), COCSKL 19) 017320), 
DCOFSKUEE > DE P30), ADT C1) DE PI), (DCOSTANE Dt G50), 
21D0NDS 01) 007761), COCLSTUD) 007870). (OCHSTCL) 01 7dID, 
SHOLCFSC9) 018091) , IDL CASEIN) .DIG20)) (DIOL 11) DIBIiDd, 
COON, TOC 1640) CTO, TOC (639) CTRL 0639590, 1908 013940), 
‘SCOMIN OF SBOR1, (STLPN OC 375)) , (STLAX OP . 37GHP, 
GIDTTABC1) .Ts666)), 
BCHS TON 06 37779, (HS THX 0037001 


MY. CMC. [DIC i AREA, 2°AREA AND PAEL WT. 


2000 IC = NDII) 


c 


eeeTEST FOR BASIC TYPE OR OPT BOX SEARCH. ID: 10P1¢%¢ 


1000 IF «(NOOB -NDI3)) 700,100,700 


100 


301 


103 


10% 


107 


IF (NDI2> - LOPE? 101,103,700 


OPT TYPE. 10-3.4.5 
IF (HOPG - MDI3HD 102,102,104 


eeelD=3. CONST. BISTK) SEARCHICs# 
D¢ 380) © TOG 
D131 © TO16) 
Go 10 700 


IDe2. CONST. NOS SEARLHES* 
01382) = TOI6) 
@o 10 700 


©*10R4 5. VARIABLE NOS.6(SIR}. SETUP STATION DATAse? 
THE} e€TOC7) - FOL6se/TOIND 
THi2) = TOCG) - VSTRCCIIICTTILD 
= 10Py 
00 105 I-t.K 
Me NDII2) - lOPL 
THCbe3) = YSTAC END eTTEL eT Hl) 
CONTINUE 
THEED © CTOISI - TO1BdI/TOIS) 
Me mitt - 1OPD 
Tri2) © Tora VaTacinieTT eae 
> 10PS + OIE) 
DO 106 f-,41 
Ke MOCI2> - 10Py 
THCLOLS) © VSTACEKHSTICND © TTt29 
(CONTINUE 


TES! FOR 4S ORS 
4 ¢10P6 - NDI4)) $07,107,108 
00 1070 i=1,11 
Commsehe © Teton se 


1070 CONTINE 
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WIG AD CHENMULE MOULE - 


sore 


CNSROZIY 
CNSROZ15 
CNSROCIG 
CNSRO217 
CNSROS Ia 
CNSROZ19 
OR0220 
OR0250 
CNEROZ 31 
CNGRO2 32 
CNSRO233 
CNSROZH 
CNSRO235 


¥ 


OBL 


CARD ND 


INPUT LISTING 


STOFLOH CHART SET - SEP 


cose CONTENTS 


MING AND CMPLINAGE MLOULE ~ 


108 00 1080 11.11 OsaR0770 
OCESTAE) = TTCboE SD OSRO7BO 
1000 CONT IME OGROTO 
c Osa0e00 
€ OGR0810 
c onsn0900 
€ CeR0810 
c STRINGER SPACING CONTROL OEAA20 
C SECTION B - STRINGER CoMmROL OSRO930 
c OGROF0 
c CGR 
c TEST FOR ZERO V IN STHEB SUR USE T1-1) DATA AT SEC 2-11 CSROS6O 
c USE MIN DATA AT TIP Oseregn 
c @6R0980 
c MIN COVER LOAD THG*100 PSE OR © MILER) eNSROT30 
c AY SECUD) «2 TO 81, FOR MiTeA, -MCE) NOT ZERO, USE NOCCLWRD FP IMXCNSRIO0O 
€ FOR off C10, USE LARGER OF fOULWRCI-1), RROD UTD CIRKEE-1) GRO 
c OGALO20 
c FOR MCE) NOT ZERO enti? MGT BE LARGER THAN 190112 RKO 2-12 NO (CNST1030 
¢ 1-1) OR MXU-C TD 6 TAD CERIO4NO 
¢ @2e CLEAR GML) WEIGHT SECTION. TwTtl) TO THI69G) ¢F¢ CORIOSO 
JOO 00 701 1°1,153 OERIOS0 
farenr-0cc3) oeni070 
FOL CONTINUE OER 1080 
c @6R1090 
c eceeoSt TUP SECTION LOOP FOR II POINTS seeee OGRII00 
c USE AGS VALUE OF UT. V AD OGRIIIO 
c TEST FOR PUG. OF oNXII) AND OI) OSRII2Z0 
c SETUP FCHAKCIT) AND FCHAX(OD OGRit30 
¢ GR IN0 
Do 799 ISEC=1,11 OERIISO 
OGRIISS 
eeTEST FOR CSCC TYPE SKIP. NCSEC*3 FOR CONST SEC/ALDS*** CNSRIIEO 
IF tNDI2) - ISECD 710,710,712 UGR1I70 
NO UF OC3) - MOSECH TaN. 7UN, Te OGR1180 
70) MOCK TT) » TSECCISEC OND oeriis0 
c O@SR1200 
Ie + m2) OGRI210 
1s pote - Ist oeniz20 
COLD = DBO) OSRI230 
CONT © QUONTOTD Qeriz0 
@0 10 682 OGRI20 
OGR1269 
OGR1270 
Ne WC -tOC4E) OGR1290 
OSR1289 
TEST FOR CONTROL DATA SETUP OGRI290 
YOC1200) © C13» OGR1300 
TOCt197) © Coa OGRI 305 
iweoun orn 
IF (MOULD - 10D) 720.2, 720 OGRI315 
c OGRINIE 
¢ SePROCKSS INPUT DESIGN DATAS ee OGRISI7 
c &KIULL). TSIULL., BSIR, NOS, LIMIN.MAX) MIMIN,MAKIS CNSRISIO 
c KiwOLe CGRI3IS 
RO w= MOLI2) - ISEC oan Zo 
W wwocaenn) 2,722,721 O6RI325 
Tet TOON + DCSKUIN? OGRI S30 
Naan = nocN OSA 
Wwe Ww wes) Tee OBR1y8 
3 now » ocHaiN? OES 
Fe IF DTSKUIND) 728. 726.725 OBR 
3S SON = OFsKUCN? ORI 351 
Wes IF tDISAU) 720, 728.727 oss 
We? SoM © DIST IN GRINS 
WO IF COCRSTENN) 730.730. 729 OGRIE® 
79 SHIN © ocesTiND OGRA ES 
Tae Ww COCs) 732,782.73) OGRA 55 
731 Toct200) + pcos ogni? 
TW UOCLSTIND) 78.79.7338 Oars 
TER STLIW © OCLSTINE one 
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Oli m 
Can NO 


ay 
rik) 
aus 
216 
ay 
ae 
a9 
220 
221 
ee2 
223 


a 
225 
226 
227 
228 
223 
230 


a 
232 
233 
an 
23 
2s 
ey 


ZR#FFIIIIIIIS 


MITOFLOM CHART SET - SHEEP 


WING AND CHPENNAGC MODULE ~- 


1PUT LISTING 
wes CONTENTS cove 
STL © STLPN CNSR 360 
TH OIF tDCHRTIND) 736,736,735 CNSRI361 
TH WSTPN © DCHSTING CNSA L362 
51 8 HSTHN CNSAI 365 
73 IF COLCEStN)) 738,738,737 CNSRI370 
737) SMCPCILD © OLCFSIND CNSRIITS 
TI IF (OLCRSIN TD HO. 0, 738 CNSR I 3G0 
739 SBCPI2) © OLCRSIN CNSR 385 
MO IF (QOL INI) HO, 2. CNSR I 390 
Ml FDCLI97? © OOO IND CNSR ISS 
CNSAI 399 
eee ees CNSRI4OO 
M2 TOC1O) © ABS CISECHISEC)) CNSR INTO 
CGR INI? 
c eaveyees CNSRINZ0 
TOC(79) = ABSITSECIISECo1I90 CNSR 1430 
CNSR 1439 
eeDiaepece CNSR 440 
TOC (Fer ISLC USEC 55) CNSR1450 
CNSRINSD 
c CCU STMUCT Eee CNSRISGO 
TOC CTPVCTSECIISEC? ed CNSRI4 70 
CNSR 1479 
Or 2 td CNSR IN8O 
TOC! FS)" TSEC t SEC ee? CNSRINSO 
c CNSR ING 
eneoVRsese CNSRI5S00 
TOC 6 PSP eTSECCISEC +33) CNSRIS10 
CNSR 1520 
eee SETUP ECFt WIDTH FOR NX AND WT CAC. *e8 CNSR 1530 
TSECI2N0) © CALCFSITD © SLCFSI2E/TOCI77) CNSR 1540 
TSEC(239) © SLCFSIS)TSEC(ANO) © Di 1 Pe (SHBCPEL) *SHBCPI221/TOC(77) CNSRISSO 
TSEC (240) = FSECIQNO) © Ditd CNSR1S60 
Cc CNSR1570 
c CNSA1S80 
c CNSR 1590 
c CNSR 1600 
¢ CNSRI610 
c eeDIFS reso CNSR 1620 
TOC169) © TSECUISEC? 77) CNSRI630 
c CNSRIG4O 
PeeDIRS eee CNSR1650 
TOC (70) © TSEC (1SEC °@8) CNSR 1660 
CNSR 1570 
GR 1680 
@orEFFECTIVE DEPTH--DIETF ieee CNSRI690 
TOC(73) © TOCt78) - YBUICISEC) - YELIIISEC) NSR1700 
IF sTOCE7SS - OLLI) Pod, Peo. Pee CNSRI710 
My TOCITI (OL eTOCs BrP Dt2b CNSRI720 
Pee TOCHTID © TOCK77) TDC C73) *TSEC(239) CNSRI730 
CNSRITHO 
WOOCLWR), POULT), -MOCTD, ZERO TESTS FOR oti), -Mil>, MIN. NX CNSRI7S0 
SETUP NXOT) 6, - A521 760 
De» nmDti2) - ISfC OSR1770 
OCC 72t = ONCE TOC BON /TOCIT7IE CNSR1 780 
VOCE FI be ABS CISECCIS™Cekend sTOCL 7D? NSAI 790 
c CNSRI B00 
c CGRIBIO 
¢€ TEST MAG OF ¢,-NX. TIP, SECT. 2 TO 11 CNSR 1820 
c CNSRIB30 
IF (ISEC - MDI1D) 660.660.670 CNSR IGNO 
¢c CNSR 1850 
eeeTIP SECTIONSS® CNSR1G60 
060 IF CTOC172)/90N - 0165S)) 661.661 .662 CNSRIG7O 
961) =TOCI72) = 0165) SON CNSR 1080 
O62 IF ITOC( FED? 676,676.65 CNSR 1090 
c NSA 1900 
c CGR ISIC 
¢c CNSRIS20 
¢c CNSR1930 
c SECTIONS 2-11 SET Ife? FCR WT CAC 10 CNSRIDHO 
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cc Sm ROS ETRE RH IDE FE LETC! SK TAA AON AREA MMII =o” 


Orhish 


aRO NO 


LI NMR OILS SELOE POE DNL RAT PB EES Oe RONEN He ee: 


DOUT LISTING MITOFL ON CHART SET - SHEEP WING WD THT UGE MODULE - 
cece CONTENTS, aves 
¢ OO -NKEDaD ©) Oaned- ane CNSR 1950 
670 1C = NDI2) CNSR1I960 
c CNSR1970 

CNSRI9B0 

CNSR1990 

TWITIGY! = CONKE THI CLES? CwSR2000 

IF CTDCOFL) - THHC164d) 671,672,672 CNSR2010 

67) TOC17L) » THICIEST CNSR2020 
S72 IF tTOCt721) 673.6% 673 CNSR2030 
673 WHT1Gs> = Coroxtetwris 70) CrER2040 
WF (ABS CTDC(72)) - TWI1164)) 6% ,675.65 CNSR2050 

6M TOCI72! © TTC EGS? Ci.22060 
6 TOCHIGH) © TOCKTIIZTOC( 22) CNSR2D70 
IF (TOC CIGE)-TOC1I979) 676.678.6798 CNSRODBD 

BS 1CiiGHy = TOCEIS7E CNSR2O90 
TOCE71) = ONOLIL TOC I Ver/DRKKUCE TOCHIGI) CNSR2100 

c CNSR2 108 
c eee SETUP MAX FCCTD, FIA), DATA eee CNSR2 109. 
678 1 = NDI) - TSEC CNSR2110 
TOC(46) = OKFCUCTI TSEC (234) CNSRELIT 
TOC(60) © OKFTIL E11 °ISEC1235) CNSR2115 
TOC i teel= OKF ILLS *TSEC (O38) CNSR2 116 

TDL (49) © DKFOUCTD TSEC (236) CNSRZ120 

TOC (48) © TOCI4S)/10C 146) CNSR2121 

TOC IB) = TSECI237° CNSR21S 
VOCIS5) © TOCKNG. ONGR2 ICE 

IF (TOC( Te} eTOC (4B) - TOC' 712) 679,679,680 CNSR2130 

679 TOCISS) = TOCE72)°T0C (49) /TOCI TI) VNSR2140 
680 CAL SS (TUCIS5!) CNSR 150 
TOC (56° TOC tS) CNSR 16 
ONGRO170 

¢ Tw tREQD) CNSR2180 
TOC(M) + TSECIISEC +66) CNSR2 190 

c CSR2200 
c ONGRE?10 
¢ DO SECTION DESIGN [Wel --(ST) CWSR2220 
¢ 1. wal COVR 2. LWR COVER CNSR2230 
c 3. F.SUAR, R. SPAR CNSR2240 
c CNGR2250 
681 CAL SECTD ONGR2260 
¢ OGR2270 
¢ CNSR2280 
c CNSR2320 
c CNSR™60 
¢ COMPUTE E1,GJ --- STRUCTU ~ REQO -- CNSR2Y 70, 
c MEIGue a CNSROW8O 
662 CAML FIG CERAN90 
id CNSR2500 
Gut) IN TSS(7), E1¢1) IN TSS(6) CNSRES10 

¢ TEST FOR GJM (REOD) AND TYPE OF ANALYSIS. CHER2520 
683 IF «TOC1 >) 780,780,664 CNSR2S30 
¢ CNSR 
c WCA SUBR SETS UP IEIGJ ID IF DELTA W NOT 0.0 CNSR2T5O 
c TeND CALC 22 CAC. COMPOSITE EL /GJ.(PRIB, PRIC TEST FOR PRINT) CNSR2560 
c CNSR25 70 
GH CAL WOA CNSR2580 
¢ CNSR2590 
TEST FOR REDESIGN FOR VFOAND COMPOSITF EIGs CNSR2GOO 

OO IF IWe2. €1,Gye STRUCT. IF WWeel,3 OCNSR2610 

OCI - ND(2)) 780,685,780 CNSR?G20 

685 CAL SECTID CNSRZE 30 
605 CAL CIGL CNSR2GAD 
CGROBSO 

TYPE @ PAGE PRINT ONLY ON NOPH=4,1 FOR OPT SEARCH CASI .CNSR2G5S 

@e7 «IF tmt2) - 10P1) 688,668,780 CNSR2650 
608 IF (NOOM - NDI3)) 689,790, 7Bu CNSR2661 
669 «IF (NOON - NDI I)? 780, 780.790 OGA™B2 
CNSR26 70 

¢c TEST FOR TYPE @ PAGE PRINT -- OETAIL DATA AT SECIISEC?, 301 CNSR2SBO 
780 IF (1P8) 790,790, 7870 CNSR2E90 
¢ CN542699, 
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Dah a ina rion tatia 
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Caro 1 
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Pa] 
n7 
me 
we 
me 


MSTOFL GH CHART SET - SHEEP WING AD COPEAOL POOLE - 


OUT LISTING 
eaee CONTENTS eave 
¢ eee TEST FOR C-SEC TYPE. SEC 11 OMY. ore OGARIOO 
77 UF Ota: - ISLC) 7O78, 787. 187) oanzne 
WB7e IF INCSEC - D112) 787), 787), 780 OaAzT20 
we7l CALL PAID oun 
te] 
¢ CO WT CAC. 1C91 M2 oavne 
FeO Ca WICK COBRA 
¢€ OBA 
¢ SOCGZAVE SECTION SUPMPURIES CAC BY WILA Zu WIRING SC? CHAZ TSS 
c POL CL) WTS FOR PRINT-TYPC A. PD §-68, FatCeB-1t* «= CNSR27S7 
¢ STORED BY PAELS-6/PH -SLM LC.TC MISC we OSR2 757 
c PRLS IN COLI42-201) STORED PI-TIPS OGR2TS7 
¢ CCUM TOTAL IN COLI IH-E 38). COCINOI=RT MIB, COI ISS PoCSECCIER2757 
¢c ML MISLESIOES OGVhT 
1€ (O21 - 19SEC) 7510, 7900, P02 oars 
‘7eOO K = (MOCI2) - ISEC) NDI) Oan276 
OO 790: {1.6 C WAS 
Ke ¢ wt OGR2F6 
COIKe LYS) © TTC ese) OGRZTIS 
FRO) CONTIN omnes 
c Oarens 
RECTION CHORDNISE CONC DATA--THT(3B1-3BiI¢ OBRZ77 
POO2 Kio INMDL12) - ISECONDIED? - MOLE) omen? 
BO 7903 tel.tt oaren? 
Kem o mt OanzA? 
TCCKezIO) © TTC 16 IBD) oan? 
‘7003 CONT IME ouwn?7 
OGWT7 
canna 
¢c BET TMT(44Y 1 oB(SPAC ING) FOR SECT J SEARCH PARAM. INDIC. “CNSRZ PO 


¢ 


aana 


c 
c 


aannea 


THT Cet 


FAIO IF (NOII2) - ISEC - 10PU) 795.7911, 785 


Wil OO WI5 


Tuts 700) = TWICE) 


FOIS CONTINE 


w=nDi2) 


@0 TO 796 


el2 OF 716 


eoeTEST (OR SECTION J DATA SAME. 10P192,3,4,500¢ 
BANE TMT(1-100) 1M THI 701-000) FOR TS$5( 1-100) PROCESS**CNSR2 He 


1e1,100 


eeeGET We2 FOR LOOP CONTROL eee 


eof TURN FROM SUM. ee OGR2757 
eTW( GO t-S00)=SECTIJ? WT DATA FOR PRIA PRINT FROM TSS LOCCNS 767 
BAME TTI 1-71), (97-120), 11498-19992 

t-1.78 


‘ee be@OOr = TWTCED 


7816 CONTIME 
00 WIT 
Tet 10871 
‘FOI7 CONT IME 
0o Ie 


‘FOI CONT IME 


Go 719 


Loi 2) 
1 © TMTC 1 +96) 


1°35 


CCMESEY BASIC THT11-600) DATA FROM THI 7DI-BO0Ie%* 
121,100 


Teed) © Tad*700) 


7FOI9 CONT IME 


owen? 
Oare tes 
OaRTn 
ogreTn 
ower 
Oanz7Ts 
oanTn 
OGRTA 
Wit 16095) © TMT Che i44t OaneTs 
oge™m 
OmnzT 
oaRrTA 
caren 
omen 
oawne 
oerm 
cans 


SET bel FOR OPA DATA CMP2016 
eee TEST FOR C-SEC CALC. SEC 11 CMLY UNLESS BLD OR WOINT 


ME CAC. o88 


AF ce@t2) - §SEC) 7081, 7081. FU 


FORE 1 (CONT) FOR. 7083, 78% 
7883 WF (CRO) FO, 78, 


cenzeze 
oanzas 
CORRAG 
Cama: 
FOOL IF Miz) - MSEC! FO82. FR PO CODABES 
oman 
Cae 
Gapees 


2475 


OSLER. SGT TS. SEER CO FORE, NENG TELE TNR TROP Ps “UIT EIFS STO rete eee pm rere 


ik i tect 


Caled 
CARD NO 


526 
a2? 


we 
823 
a0 
ett 
sie 
a33 
ab 


ey 
ass 


SEESRES ERE ESE 


ra 
3 


Shas tame 


GING AO CPOE POUL - 


INPUT LISTING MUTOFLON CHART SET - SEP 
eon CONTENTS, ose 
¢ WEST FOR PRIC PRINT OCGA2810 
Fa IF IPB) 799,799, 7995 Oarenn 
c OGR2830 
7A95 CAL PRIC OGAZE40 
OSR2900 
¢c OE TURN LOOP FOR ISEC OBR2910 
Feo COMTIME Oanee0 
CmAeIe 
SCCPROCESS FINAL WTS. ADD INBD PPL (0) DATA, SETUP SUMS***CNSROG2D 
900 THTCDE © MTchh © TesT156) OGRZ9%0 
TMT C30) © TNTI30) + OTIRBCLI CHAS 35 
00 9901 i-t.5 OGR2H0 
THC dened © THTITe4Gr «© THIEL ose CERO 
Hele i 33r = MT Loe CGR2T50 
6901 CONTIME CNSROOYS 
c CNSR29CO 
.139) = TTI CNGROSGS: 
COLNNOt = TTI CNEROD70 
Tute4O1 = TTtWO) © FT ESS) OGRMA 
Teateedd = Teed) © TMTESG) CAEROWBO 
€ eooset Wel FOR END OF ISEC LOOP TEST+** OGR2989 
Me MDL 5R2990 
c Gen3000 
a CGRILIO 
¢c OGR3110 
c OM COLL TA WOINTO ELEMENTS WTS OGR320 
c UPPER COVRR CERIO 
FIR TWTI9) = CLCWrIWTI9? © FWTCI9> OGR3140 
TTt1O) » CLCWsIWTItON © TWTt20) OGAIISO 
TMTCbED = OLCWTNTCNG) © TWICE) OGR3160 
Tuti2a = TMTI9? ¢ TWHCIOs © TTiseD OGRS3I70 
CHSR3100 
c LGER COR 603190 
THTCI2) © DLOW SINT S12) © TWTtI22) OGRICNO 
THTEE3) © LCM IMTCNS) © TWTCO3D OGERWIO 
TTI) © LCM SIMTEI) ¢ EWTCON)? OGRWCO 
TTL 3) © WATAL2de TTGyd) © TTA ‘ONERI230 
c OGRIAN0 
1-RIBS OER 
TuTtS) = TTS) ¢ THIE25) OGRSO 
c OSRZ7 
VORQUE -80x MISC. GSRi290 
TIO) = MTG) © Tio ¢ TTC29) OGRI290 
CSR 3300 
FRONT SPAR CGER3310 
THI115) = DELFS*INTC1S) OGRSY0 
THTC1G) = DELFS*THICIG? © THC) OGR3330 
THTIG) © GMTCIG)e THTEISD OGRINO 
OGRIT.O 
REAR PM OGRI3350 
TMTCL7) © CELRS*TMTIS 7) OGh370 
TUTtt@) = CELRS*TTCIa) ¢ THT(27) OsAIHO 
TMTCTD © TMTCIGde TTC 7) OGRI390 
GERHOO 
¢ eveerSECT (J) DATA, Neo. END OF ISEC LOOP, Mel.¢ CGRHO9 
& 4001) 610.610, 712 CR 10 
c Gary! 
CoGESET SICIION J DATAr¢? CERN 12 
¢c SIGED IN TWIBO1-900)--F ROM CHSIR MDE? OGRNIT 
810 00 8100 I-1.100 OGRPIy 
TSSthb © TwtheB00) OGRMIS 
8100 COT Me OGran 6 
c GERI 
¢ eoTEST FOR TYPE OF SLARCH AMD PASS MO. FR EXIT LOGIC** CGRW20 
W wwmr2: - 10P1) 811,611,899 OG*W3 
Cit IF CHOON - 80131) 699.812.699 COLAND 
c OaRwnso 
c Oaanhs 
c eeDISCALTIE POINT SEARCH. NOON-3. SAVE LESIGN DATA’ © COBRA S60 
c OD HM. ACOS NTO WeGe OGRH 7D 
@i2 TOI = Marit OBR}00 
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Bush 


SSERSSERE LE Sa § 


S10 
st 
si2 
313 
sin 


PRIPSCSHRP ERE ESHER HERR ERE Ses 


SESHHRER RASA ARBs: 


INPUT LISTING 


MSTOFLOM CHART SET - SHEEP 


CONTENTS, 


MING OD EMPINUEL MODULE - 


TOL}) = TSSth? COGRH90 

TOr2s © TOW) - Tord? CGR 500 
Oarsi0 

¢ TEST If PAGS WAS OPI. CWSR 9520 
W CIOPL - MOtS)) 613,013,099 OGASS30 

(s CHER 5 38 
¢ MCD 1IB-IN2. % BLOCKS OF DATA, 5 ACDS EacHe CHER ISO 
c MLOCKIH) BASED ON VALLE OF I10PI° CHER IAL 
€ RCOL I) OF GLOCKINIOMISC CATA. BRITE FROM TSCIS-150)* CNSRIWS 
c ALDI2! OF BLOCKINeTWTt1-1501¢ CHER ISS 
¢c RCDI3) OF BLOCKINITSS¢($-100)¢ CHER TS 
¢ PRODI) OF BLOCKINISTC(L-SN0)* CNSR IWS 
c COIS! OF BLOCKIND «CDI 1-4001¢ CNSR S46 
c CNSR IWS 
O13 M = 10PL MIS! © 16S OGATSO 
¢c CNSR 3958 
SETUP TSC1-1501¢ CNSRIS59 

00 8136 1°1.5 (CNG 3560 
TSC11d = TOCI? OGATSE! 
TSCileS) © TOC1eI 73 OGRISG62 

8130 CONTINE CONGR 3568 
c CNSR S69 
TSCULE? © D137? GRIT 70 
TsCei2) = OC37) CHSRISTI 
TSC¢13) = 01380) OGR3S72 
Teccie) = OFM) OGRIS73 
TSC11S) © 0¢ 382) OER 

c OeRS 
OO O13) 90,00 OGRTSOO 
TaciieiS) © TEP HID CGR 3582 
TSCtLe26) = TeRePict> CGR TSE 
TSCile37) © WWPICLD ONGA 3586 
TSC(104@) © WPMLSCID GA 3508 
TSC(16S@) = TANLNCI) OBRI590 
TSCt1¢7O> = TBCHTCI? OGRI92 
TSCULOGL) © OEFFIGIY CERTSD 
TSCtLe@2) © YBUDII) CGRI596 
TSCi1+s03) © YELOII) QGR3596 
TSC(fesi4) © OCRSTCED OQGRIE0D 
TSC¢1¢125) = DCNOSCED CSR 3602 
TSC(bOH3S) = ONKENCED O6GR3610 

G13) CONTINUE OGRA '20 
OGRIEI0 

soORITE S ACOSS** GRID 

men COGRIE50 

CAL WRITS 19.7SC019, 150,164) CGR 3860 

1 oe Me MLE OGRBT. 

CALL WRI TMS 01, TWT1i 150.14) OSRER 

1 2 wo NDI2) CNSR38B0 

CAL WRITS C1.1SS019 100,10) OGRA 3885 

We © & 6 O13) CAGRIEIO 

CAL PRITHS 11, TCOLD. OIF) OGRE 

Te = we NOY) OGRI700 

CAL ORETHS (1,.CD1') 800, 1F 4) OGR3705 

¢ OGRITIO 
€ CNERITZO 
c CGR9900 
c etxites Canes 
OF RETURN Oaqnen20 
oo Greets 


Cosccncersccenecescgusucceseucussecarucueeees sUROUESTESEESUCSESSESENSUNS 


c 


400 0SUBROUTINE SECTOSse00 
°TORGE-BOX SECTION SYNTHESIS - SEARCH LEVEL 1 CONTROL ®** 


DBROUTIME SECTD 


SECTION AULYSIS SUBR---STR--- 
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sec T0018 
ecto) 
mC TeORO 
SEC T0030 


Bl eut LEsting astOrLoM CHAT GT - SELP WING AD COPE PAE 


camo “O eoee CONTENTS, eoee 
“e ¢€ sactoric 
ed] c S£CTO130 
370 COP T1206) 012069) COL + NDENO08 SECTOINO 
1 c CTO 
s72 DIMEN 10Rt OC 1100), TOC (2008 TSC 14209, TSS1 100), THI 400) TSEC #300), SECTOILY 
373 ANCL 130), £C10161 
s™ SOMITE COMO), s£CT0162 
$4 FVBLOCD ED VOLOVEE) Croce dts Oro thn, stctoies 
3% SOCRSTI NED ORISt4) sic T0169 
$77 S£cT0170 
sn £c10100 
37 EQUIVALENCE (OCEL) DELHONDD CTOCK ED TEN Dendy CTSCOne Pens S£CT0190 
‘20 LETSSELD TONGOEDD CTMTOND COCEIORDD CTSECaED COMISIND, SECTOIS! 
2 2tPEOCNS)) AVTID O(2O9)) CTAe ra. TOC TONED, sectoise 
‘s62 DICHLHO C1 OGOd AUT ED) OCEGEN) CORISEL) OLEs Moet, SECTOISS 
a3 WAKPOATE GD) OCDEL EE COLE) OCF IOCESTOND OF ooh et, SECTOIN 
m SUSTETM OC UHL), Combed OL 3TOT DST RI GF STEN? teeth Ges7eee scloiss 
a GUSTO, DET IGd) CSTE OC SION, COMIN Oe 990), (BAN OL SOtID, SHCOIS 
= JUSTIN, DEWIN) CSTE OF TOI) Sek OC SPedD TKS OLITGI, SECTONG? 
27 BICNSIO. OtsBi 1) OTC OSC AOTC OisCGI9, ECON CFR, sEC10I90 
sen QYBUDIE) TH6 7G! P A YOLDENT TEGO)! ACTON: 
= c SECTOPON 
90 EQUIVALENCE (DELL) TITI251 09, (OLSU, CL 129), (OL SHE EL ESI, actorio 
” BAOL FSH DEL C15) 7, 10 POEL EIS). SECTOZIE 
sae 2ICIONT THT ITONDY CELI). ThTH2000, SEctoe12 
ws SCIG NOUS) 0 ESE) Cit eon, scinets 
ms GBCIBT MOKED) Mm te Ph, SECTUAIG 
m TEICO TONITE TSE NPD, sec 10217 
Sx GUMEB res7. + CMS, DEAT REM SECTOLIB 
97 BUISEC NOLES CE NDC CoD SCION 
8 c SECTON20 
9 c SCTON3O 
600 c SECTOWO 
601 c oeee SETUP CONT AD Ch HS ener SECTONSO 
602 7000 t+ MEER) ~ IEC SECTONEO 
Gos c ‘SECTON70 
ow CR) = ORO) SECTOWeO 
oy Cunt = Omutete SECTOW9O 
606 « SECTOS0O 
oo? c SECTODIC 
oce c TEST FOR TYPE OF AWLYSIS OM IW ELS°ST., 20h sEcTosco 
os c SECTOS30 
610 IF CIM ~ NDI29) 700,400,700 SECTOSNO 
6 c s@c10%o0 
612 ¢ SIRCMGTH KEGHT ANALYSIS -- UPR-CUR COVLRS, FRONT-RLAT PASS «SE CTOSEO 
613 c ND. OOF STRINGED CHINO CONTROL =~ BUC AO NOUMIN AD, CIMITS eCTOU70 
6 c COMPUTE NOSHIN: SECHT) =~ UT LARGER OF SPPtiN OR NOSILMOYD SECT0S80 
ois 700 iB + NOraD ‘#C 10590 
oi6 TOP 1B) + Spetin SEC TO6OO 
o17 TOCEL9OD ET) C720 /0PwO-OLLD SCIOGIO 
sie VOCCISI SINT ETOCL ETI SECTO620 
619 IF CTOCENSG) TOC CISTI) 7051, 7052, 70%" S£C10630 
eo FOS NOC ELS TE 59P SLCTOBNO 
oe c SECTO6ND 
ee c BIART IB-1, FCSTART-F CHAK SEC 10650 
@23 WSS TOCK IG =10C195) S£.C 10660 
wow c ‘SECTONED 
es c OPT SEARCH OR CONTRO ‘S£C10670 
as c TEST INPUT CONTRO DATA. FOR 10-1 ROOT TO TIP ‘S#C1CEBD 
ee c FOR 1D-2.3 CONTRO DATA ONLY AT JOINTS ‘S£C 10690 
es c =£C10700 
oe ¢c SPECIAL COMTROR LOGIC -- TEST FOR Di de Tie-e 02 Ss CTO7IO 
on 9000 IF (01h) - CONTC! 9001 ,.9910,9010 s£ct0720 
oi c CONTROL WITH INPUT GLOCK -- ICD © 2 SECTOT30 
ex 900! 1OWerOi1) SECTOMO 
o33 TOC(6B) © TOCK77)/BHIN - OFtD sicto™o 
cr I CISC - NOI2)) 705.9002, 706 =clomo 
6m 9002 IF (1012001) 7060, 7060 9003 SECTOTIO 
os 9003 10C1198) = THCI200) siCTOmMO 
637 @ 10 7060 sEC10790 
6 c CONTROL WITH NO INPUT BLOCK -- ICD * 1 SEcTOnNNG 
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cand MO 


o39 
0 
wy 
ee 
3 
ab] 
ws 
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es 32 


iS 


ee: 


a 
a 
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EESEREETE 


6% 


SPSERISSRSCHHSSEREETSS 


ee ee ee oe 


INPUT LISTING 


O32 


CONTENTS 


IF UNDCad - 4801 9011, GONE, 102 
W tcortcr 9612, 703,703 
IF ULSEC - NDEZIt 7020, 704, 70% 


IF SISEC -MOLENY 2020, 7020, 7021 


SECTION 1, TIP -- SETUP 10 
{BeNDIET 


SETUP NOS MIN-MAK FOR OPT SEARCH =f (BRIN AND SNAIN BMC 


TDC G8? ef TOC E779 7EMINI DIE) 
TOC(68) «INT (TOCI58)) 

low stunk 

If ¢iCD - NDI2) M22. 705. 7020 


WO INPUT CONTROLS 
If ¢TOC1GO) ~ TOCLI9At? 7060, 7061, 7061 


Toci6e) = TOC (198) 
00 TO 70bI 


INPUT CONTROLS -- TEST FOR BMIN, NOS 
IF ETOC 12009) 7022, 7022, 7053 


INPUT Nuo, TEST INPUT B 
TOC 1198)=10C 1200) 


YEST FOR INPUT BSTR = 0 
If (OCOSTAISECH) 2022, 7022, 705% 


INPUT NOS AND BSTR ~- USE LARLF OF NOSMIN, WOS'B) --NO SEARCH 


IF (TOC /68)-TOC 1198) 7060, 7061, U6 


MUTOF LOM CHA9" SET - SMECP 


WING aD CPt MOU - 


SEC 10610 
eC TOR20 
S£C 10830 
SEC TORO 
C1080 
sec 10039 
gEC 10860 
$C 10870 
Cte 
SEC T0800 
$£C 10890 
s£C 10900 
SECTOOIO 
eC TORCO 
C1089 
$EC10930 
SECTOWO 
SECTONO 
SEC T0960 
SEC 10970 
SEC 10980 
SECTO990 
aECTI000 
SECT1I009 
SECTIONO 
scTLO20 
C1029 
SECTIO3O 
SECTIONO 
C1050 
SEC11060 
sect1070 
S£.011080 


INPUT CONTROL FOR CONSTANT NOS OR BSIP OPT SEARCH AT SECT. 1,2 SECTIO90 


AND AT INDICATED JOINTS --- IBel FCSTARTS FCHAX AT JOINTS. 


IF CISEC -ND(2H) 7021, 7021, 7038 


SEC! 3.10 It -- TEST FOR JOINT(t), IF NOT O, OPT SEARCH 
1 iF SCJONTD 704, 704, 702) 


SECTIVOO 
SECTINNO 
SECTIV20 
SECTINIO 
SECTIINO 
SECTIISO 


CONSTANT NOS OR GSTR TEST AT SECTIONII? ~ IDeb, FCSTART=FCMAC [- 1SECTIIE0 


IF CISC - NDE3I) 7032, 705.1, 7032 


USE (NOSCI-1° +, NO LIMIT ON STR SPACING HIN UR MAX 


TOC(60>*TD 181) 
1OW eNDI2) 
00 10 706 


CONSTANT BSTR BC HeBI 1-1), ST. AND Ww lowe} 
WOStTD WILL NOT @€ WHOLE INTEGER 
TOC(6BI9CTOCd77I/TOC B27 -OCbd 

Ir 2 NDI3) 

IF ¢10C168)) 7041, 706, 706 

TOC (68) "°0C 13) 

TOC (198)=T0C (68) 


SETUP LB/TE LIMIT DATA ~ ACKSIOOG, LAPIN, LMAX 
THT (305) MSTRNSTSEC (224) © STFANSTSEC (223) 
TMT (306) © HSTHX 6 STFRXOSTREN 
THT ( 30") = SIRMNS THT (306) 
TMTC302) © TSEC(223) “STF PN/OC IDE 


Q@/1 -- HIN, MAX, CONTROL 
TMT( 308) © HSTHN/STRYN 
TMT C308) = HGTHK/STREN 
TWT(307) = THTS309) 


Oetire 
T1310) © CCS) 
Tere 3ib) = OCC3D 
IF (Otth ~ STAFND 7063, 7065, 7067 
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SECTIN70 
gectiieo 
SECTIIOG 
seCT1200 
scTiz10 
sicTie20 
SECTI230 
SecTieNd 
ECTIC50 
SECTI260 
scti270 
SECTIZ200 
SECTI290 
S$€C11300 
SEctusI0 
SECTI320 
SECTII30 
SCTIMO 
SECTISSO 
SECTIIGO 
SECTIMD 
ECT1370 
SECTI 380 
S£C11390 
SECTINOD 
SECTINOD 
SECTINIO 
SECT INGO 
SECTINIO 
PECTIN 


EE 


oBrte- > 


Ca ND 


ne 
WH 

ne 
ms 
Te 
ns 
6 
ny 


GRIFER STP AP AP eRe ess 


» 
& 


» 
s 
= 


VIFTITIV IAI II eae 


UNPUT LISTS MUTOFL OM CHART ZT 


seee 


7063 


7067 


7070 


ns 


n20 


CONTENTS, 


THTCSIED © SIP MST 


221 CYPE. INTER. 10. te, 2ef FOR LBR OT 
16" Oets 
WE CTT CSRLD - EWTC3I09N1SEC 122190 70Bs, 7065. ES 
1BtehOi2) 


Zin, eer. MAX O/T 10. Lett, Se 
THTt SIO) © STFRX/STRAN 
ee > NDE 
THT C303) © HOIMN ¢ STIRINGSIF IX 
WF CTWTC3090 6TSECI221) - THTE3ICD) 7066.67, 7057 
tex « ND(e) 
TMIISO7) = TIE SION/TSEC I 221» 


MIN STR APLA FOR MIN GEOMETRY, = PMAXLAL 
TOC LIT Fo STINT EOD) © TSEC 205) 
THT 6 3083 -SURPNTWIS 306) ¢ TSE CIOS) 


FCISTART) = FCMAKLED 
TOC CIS) «= THCC%) 
TOC 6193) * 000 ¢ 723 *TROON/ SON 


SCTUP STARTING NOS 
TOC (BL b= T0CsCaD 
CAL SFSCH 4IDC 1681) 


SAVE B! DATA IN B11 LOC, 
bO Foe 1 t4o 

ISCUDSBOI © TSCULD 

CONT ItAe 


TEST WITH MIN par, 

fe CTSCede | UCEISUD? Fe. Te, 7090 
18-NDI2) 

WSCead 9150181) OND 

WW 4TSCtd) 712,712,709 


00 BIN) 

CAL SSCH FISCAL 

WUUSCIOy WSCIGI) M2, 710, UT 
WO TSENG) TOCEPOD FILTH 72 


USE B81 DAIA, MOVE 10 OPT LOC N-80 
OO 713 1-140 

TSCOLeROD © TSEC) 

CONT IME 


UE Bi-1 Pata 

OVE TO KOPT (OC 

OO 71% T+t.40 
TOC8E+BO) © TSCCleGyr 
(CONT ILE 


SAME Y-GAR FOR NEXT PASS 
YOUDCISEC? = TOC109) 


SETUP TSK*CELTA Say 

Tw 1501-08 

IF (90WN-TOC HISD) 7120, 760, 760 
THT 1S50)* TOC CLI KY 


eee SETUP TBAT) CORRECTION FACTORS FOR LOMER COVER e+e 


TSEC (Qe) © PCIE 

TSEC(AN3) = ORISEII 

1F (O12) - SIREN) 7601, 7601, 
If $CNS1D) 7602, 7603, 7602 

VEC HT © ORISI2) 

IF (CHS510 - Of2t) 7603. 7%G03. MOV 
TSECI264) = TOCIBID 

TSEC(QN2) © TOC 77 TSE C239) 
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Seer 


WING AD EFA MOLL 


TCHI959 
SECTINGD 
SCTiveo 
SECTINGD 
stcliseo 
wcrin99 
SECTINg? 
SC 11500 
SMcTISio 
=cliwo 
MECTIS30 
ECTI'AD 
schimo 
SECTISEO 
SECTIC“G 
C1170 
SECTISUO 
SECTINAD 
S£CTIG00 
SECTIGIO 
seCHIGD 
SECTIB30 
SECTIONO 
SECTIEND 
SECTIC60 
S£C 11670 
=cli6799 
SiC 11680 
=1cti690 
£C1)700 
SECTI7IO 
wcing 
Clio 
SECTE730 
ACIIAO 
=CTIMSO 
SECTIVGO 
Scie 
=cin770 
%C1A780 
SECTI790 
S.CT1800 
SECTIBO9 
secti8i 
sclieeo 
SCTIe30 
SECTIONO 
SEC11850 
SECT1I660 
SECTI@70 
S=C11680 
séct1e90 
SECTION 
SECTISO9 
SEcrisie 
SECTIG?=D 
$£C11930 
SECHIGNO 
SECTIS5O 
@ciig0 
sEctIS9T7O 
SEcTI9BO 
SECTI990 
SEC T2008 
MECTeoIO 
EC Teneo 
£c12030 
SECT2050 
zc T2050 
sic 12080 
ci2070 


2 i coc dime i 
z ar reece er Se TRIE TES SEER RCs 


Brite~m INPUT LISTING AUTOR LOW CHARI cFt SECP WING AO EMPL MODULE - 
ta NO ese CONTENTS, cone 
wm TSEC US0P © TSECLQNS NE ESEC A221 - TSEC CAM TSEC 6283s - Die) CAISI 3) SECT2060 
Mae SEC T2090 
RI secteico 
™~ ¢c eee SAVE EFF wit FACTORS *°° SEcT2110 
™ TSECCQNL) © TSEC C2329 . SMCT2120 
eS TSECIAN2) © TSECI2ANOD SECT2130 
») TSHCI2N3) © TSEC (2325 SECT2INO 
™ c SECT2150 
nw ¢c &CI2160 
m0 c sEcT2170 
nm c OME OATA FOR TO FINA LOC SECT2160 
Te c SAM +11) -- UPPER COVER SECT2190 
ra) TOCHIO3) © TOCC1OS) SECTe200 
™> Toc1601 © TOCt107) SMEC1ecI0 
Hh TOCc10S) =<1DCe810) £ct2220 
76 THC HIF) oFOCCTIED ScTe230 
nm TOC 1109) =TOCKh12) SECT2N0 
"8 SECT2050 
Ww wcteeco 
@00 c TEST FOR VEATICA TAIL -- TEUPRIETILWR? SECT2c70 
eo W00 IF CVTID) 710, 7610, I SECT2CBO 
eo2 c SECT2289 
eos c SET LR COVER =UPR COVER SECt2e90 
om FEI IWTCES to TWT150) SECT2300 
om TOC(B IS FNC ue SECT2310 
605 TOC ED EON+ 1 1109) SECT2320 
@o7 TOCER22= TDC C14) SECT2330 
eos TOCELIT) -TOCTBY) SECI2ZH0 
09 TOC 1 Feb FOC 182) SECI2350 
ew VOCtL73$ = TOC(95) s£CT2360 
eu TSEC 1) = OCD SECT230 
se VOLDIISEC) © YBUDLISECD £12390 
o13 6 10 Me SECT2390 
ay c SECT2400 
os c SECTAWN0 
6 c eee TEST FOR SIR, PL, HP. FOH 10.1.2,3) #08 SECTAN20 
7 c SETUP DATA FOR PL AND FDH SECIEN3O 
e ¢c eee MUILWRD © KGEFF YNXCUPRD eee SECT2N4O 
t lO WOCHIG?) © OCt3> SECTANSO 
eo t = miter - ISEC SECLTA60 
t 4) TOCE7F2) © TOCK 72) e TSEC (a4) ONKUE ST) 0N0a <1 ECTAN70 
ee TOC1168) © TOC(96) SECT24B0 
ee23 WF ¢Otb> - CNGIOD 763. 7H, 7121 SECTEN9G 
om c £12500 
es c eee TEST FOR HC, FDH oe* SECT2510 
ees 73 IF CONSID - DI2)) 7630, 7630, 7 BCTSs20 
ee? 7630 WO 0167) © DICL SECT2530 
oe WOCC1G8) = MOCI9G) - FSECI226) ¢ TSECI2300 ECiowo 
G2 SECTS 
ex eree PLATES . HC. FDH DATA o4re SEC T2550 
er: Fee «OCIA? = MOCK Fen /TOCICO) CT2560 
sie TOUCHES: © TOC IEG) ¢TOC 162) £CT2570 
es TOC(ni2) = TOC1S7> - TOCtI6a? Stct2s80 
en THTCIS!) = FOCIMI2) em SECT2590 
xs WF CTOCENI2) - SORNL> 7640, 7640. 7641 SECTC6O0 
ee es FAD TOCtiI2) = SORE SECT261O 
es? TMIISt! © SOR MCLG 
Ls] TOCt@72= TOCKH2> + TOCTLEa) SEC 72630 
~~ FRA TOC88G6) = POCI 717 TOC (87) SECT2640 
wo c SECT2BS0 
¥ Lat eee SETUP FOR LWR COVER COMPRESSION. ID-U FIRST PASS. *¢ SEC T2660 
€ we TUNA = Ot) SECTCB70 
ws c CI 
on c VEST FOR FCIMAX! Lom. SECT2ee0 
65 QF CTOCCIG2) - TOC TIGED) FEN2. F644 . FeNe SECT2690 
oe Fee? TOCHIGE! = TOCHI6e) secT2700 
wr? FS 10C © TOCIF1I/TOCCt6G) ct2710 
Ca TOCtsi23 = TOC(S7) - TOC1160! SEct2720 
ws WuTeISad © TOCCEI2S)eOL SL SECT2T3O 
Lo) Sct2799 
eI EVALUATE FCCLERE FOR O/T. SMECT2NO 
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Bliss 


aR NO 


677 


INPUE LISTING MJTOFLON CHART ET - SHEEP 
eose CONTENTS 


Tere CALL SS CTOC1 eG I! 
Tociives = toci1e7) 
TOCUNLO) © FOCHIC M/F bt21 ¢ Orne 
. UF CTOCCIG67)} SO. RSG.AST 
FHS? TOCEHIOT » SORT IDE Sr etOCeriOet1OCENIO) *© Oiida © Oebse 
FSO TOCHE MD = TOC HH NeTOC 10) 
TOCe110) = TOCIBOrs toc biea? 


¢ 

¢ 

c eoeTEST FOR ME, Fler ore 
1F O42) - CNSIDI 769. °% 6, 7645 

c 

c oor te e* 


RS WCh1Oy © Bids 
TOLCLIEP © HEINZ TR BT 
Tocermt = Ors 
TOCTLED! © OCtd) 
TOC11 701 = OCI3! 
TOLELTE) © TSEC LASeI Ie) 
VR OUISE CD © YROUISEC Pe 7D Tin But 
GO 10 751 


%50 1WOC1169) » MSLCL23t 
TOC 1470) © The cis 
TOCCATED © TEChA 

m5 


TOCERPO = TMC TLECLISD 


TOC Ab13! = TOCCB72 © TOCKI70) © TOUTE) © Tote ee 


GO 10 70 


c ore PL HC TEST £0P PALS NO #1 OR 2 
FNS IF CLR = NDI28) Toe. CON, Tos 


¢ eee PASS | TEST Be TIA LOWAR ED TO R/T TU) fee 
FENG IF ATER EE A)- TOC ELON) 7647, 749, N49 

c 

c SEARCH Foe FC al B/TIALOWAALE) © B/PIAC TUN) 


WIND AO EMPL MAE - 


sict2™o 
SECTeE™O 
SECT 
SECTO7EO 
sécte7g0 
SEC T2800 
SECTCBIO 
SECT2BP0 
SEC TOO SO 
SECTOONO 
SECTOR 
SEC T2060 
SECTCB70 
SECTCBOL 
Sf C T2890 
SECTRI00 
SECTESIO 
SECTe900 
SECTON50 
SECT AAG 
SECTARO 
SECT A919 
SEC T2960 
SECT2970 
SEC T2980 
%& C32990 
SicT 3000 
SEi 3010 
SCTIOCN 
SFCT3030 
SECT 3040 
S£CT3050 
SEC13059 
S#CT3NGO 
S£C13070 
sccT3neo 
%& €13090 


¢ SET 10-2 SAVE UPPER COMR DATA T0C1 72,194), ISCI21, OIC (ON IB IECT 300 


TENT ILWRC = NDI?) 
TOC 1169) = OFC 
TOC(N 70) » TSCK2) 
TDCES7E) = FOC EID? 
WOCei20) = TK 672) 
Cc SET LOWER COWR DATA FOR BOT SUE? SET Sede Ormesby 
OrceOTcL 
TOC HIGH! = TD 1166) *TOC (Bo) 
msCi2) + TOCIB2) 
TOCt Fer © TOCC7 
Ky © ae) 
AL mw. 
TOC(1I3) = TSCI3eLE 


c TEST WITH FCOT- tb 

Te CTOCCUNS) - TOCHNEG)> 7B59, THB, Le 
7659 TOC(I66) © TOCKII3> 

GO 10 743 


* SECORD PASS COMPLETE = RESET DATA ¢¢ 
Fer8 OTC = 1001169) 

WSC12) © TOCTI70r 

TOCEIDed = TOCCITDD 

TOC 172) © TOC1120) 


econ CALC FTILWRD = TEST FOR PL. MP. coee 
F49 TOC) © TOCt720/70C 187) 
IF ICNSID - Dili) 7660, 7560, 61 
FO60 VBLOVISECE = YBUDLISEC) ¢TDC187)/T0C 188) 
GO 10 %2 
FRET VELDOISEC) = YBUDLISECICIDICL © TUCI@7F7IOTC © TOC. eai) 
00 70 750 
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SECT3IIO 
SECT3I20 
SECT3130 
SECTIISO 
SECT S150 
sicTsi6o 
SCT3170 
SECT3IGO 
SECT3190 
SECT3200 
SECTICIO 
SMECTWeO 
SECTI230 
SECT3239 
SECTIONO 
SECTIVOO 
SEC * 60 
SECT3270 
S£CT3280 
SC t9g0 
SECT3300 
SECT3310 
SECT3wLO 
SECT3330 
SECT3SNO 
SECTI35O 
SECT33£0 
S€CT3370 
SECT3300 
SEC 13390 
SECTIIO9 
SECTINOO 
SMCTMIO 


i 


Is out List ANOLE OuRT GT - BEEP WING AND COPEMWOL MODULE - 
CARD NO aeee CONTENTS cove 
on3 ¢ MCT ze 
on € @EGEY KOPT DATA 10 FINK FoR SECT 30 
fad c SETUP LOSER COVER --A6S00 SIMILAR TO UPPER COVER IN CONSTRUCTION SECT NO 
ore ¢ COMPUTE GLOPETRIC CONSTANTS SECT ese 
a7 ¢ TEST FOR ALPHAli AUR °,- ALPHA UPR --- UBC SPULLEA VALUE SCT Se 
Ld ‘712i TOC11O8) © TOCCOB)/TOCI IIS) SCT Ie 
ore TOC OBOE ye TO mC Tree 
om 1 CTOC11OS1-TOC (169d) 722, 7123. 7123 SCI HSO 
1 7188 TOC1 168-1001 168) ct I00 
ose Tad TOCeLOBie FOCKMTI/TOCELINE MCT 1e 
w TOC 1 1G 7191 TOC 1 1O8)-OC bd /TOC C16e? SEctys2e 
th TOC 4171 De TOC E167) TOC LEB MCT ISSO 
os TOCCL POD © TOCEITIESTOCES7 Oia? SECT IMO 
as FOC CETL DO TOC (E712 °TOC (167) DE 32 TOC 1167) eect 3950 
037 € aici 
8 ¢ TOAR LAR COP. stCT3S60 
ose TOC6172)© SORT (OCI 71) °TOCT 100976 TOC 61651 FOC 116399) SECT3570 
fa TOC ¢ 108) =T0C4713/T0C11 72) sxcT35@0 
or IF {TOCC1G2) = TOCCIOS)) HO, I, Ml sccT yee 
me MO FOCII7@)= TOCETLD/TOC (G2) stct 300 
Wes \OC(106)-70C¢ 162) ECT IS10 
ow Mel TL2tO7)=T0C 17) / 700180) ecTIB20 
1s We ATOC1B7D- TOC 1172) M2, 3. Med C1330 
os Mee YOCt@7). OC11 72) SECTIONO 
we? MR TOC 1412)" TOC187) /TOC S168) StcTiese 
oo) sect IESE 
ww SETUP CELIA OTS Src TIeS0 
L) THT CIS1DOTOC ERE? ANG ec1m70 
er WF CTOCCL 12) -BORL) Ne, Pee, Ped Sc T3880 
ome Pe TOCUIPe SON SECT IBeO 
ws MICISII= SON SECT3700 
La) TOC(@7) = TOCK112)°TOC(1e8) £CT3710 
¥ td ¢ CTING 
é os © — CORPUTE BS TR UR atcT3720 
t a7 PeS TOCCI M2] SORT CC TOCE TLD STOCLIOGISFOC( 100) / (PLOPSSTOC (IGS) “TOCISECT3ET3IO 
Fe L ] 607909 © CYOCCIGOD/ITOCII 72 9-C TOC C170) STOLE 1700 / TOC 16G)009) SECTEMO 
js 0 ¢ sECT3 70 
, ] c TOP CARD TOR OSTR LR SECTIFSO 
pe oa TOCCIM) © Tociee) SEC) 3760 
i Ld TOC FBV TOC (1 ed ¢¢ TOCIG7>- TOC ELIE)? SECI379O 
& a3 UF CTOCC173)-TOC 11941) HB, 7, PT SCT3700 
2 ~ PG OCCA TSO TOC LIM? SECT3790 
N bd TOCKSTISTOC (E12) © (TOCCUTED/TOC CL Ped) S£CT3800 
os c SfCT3B00 
7 ¢c SETUP SUN TEAR LR. FTL, BOT UR ecTIBIe 
es Me? TOCKIELD©TOC171/TOC (87) cTee 
~~ TOC 1110 TOCE EAD /TOC (B42) CTIB30 
vu ¢ SECTIONG 
mn oPeTEP YRARILIM) (STR) ooo stcT 3050 
é Ltd MPO CONE) © (TOCKO7) - TOCK§1219/TOC 188) src T3880 
: on Is C4) = TOCEIMN) HLT WTE sacT3870 
¢ ™ WIL TOCKIA) © BCID scTI880 
5 Cz] Pee VELDIISEC) © (TOC(OB)*YBUDSISECD - TOCELIND/D(2)¢TOC 111%) 1/TDC 198 9SECT 3890 
mm 1 - Toceties StCT3e00 
7” TOCKL PSD © UCYBLOCISEC) TOC EL Ped HE TIN/TOC ISR) © TOCCLIZD DOC TOCI@7SECTIOIO 
7 VP = POCUNIRI) © TOCHII2) rer eTHC L182) / TOC 187) sicTvEe8 
7 YOLDIISEC) © ToCKimD ect 30 
La] ¢c SECTIONS 
oa Mak TOCHIAOb= TOCKIeI/TOC CHIN) mcT3eCe 
on TOC11@B2° TOC112O) *TOC190) ercTsase 
a TOCCA7Lb© TOCC 120) ¢TOC«S3) acT32e70 
a TOC(N7B1¢ THCISI) *TOC 1671 /TOC 188) actese 
as TOCtLIE2© TOC(B7) TOC (GOD oTOC (B11 ¢ TOC(S3) orclzeee 
25 c Sec Trees 
a REMT FL) FOR PRINT fecreele 
bo) 7OC10@> © TOCTIGO) ercreoze 
cs 2) ¢€ eC Tree 
ee c Coe RET MIUFRD SECTLENO 
Lil vee fs mite) - 19tt acess 
mm VOC CWE) @ POCC II / TSEC (eee) tens 1) OL CIF ercTvese 
ws ¢c MC TVOTe 
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IEMs 


CARD NO 


wh 


INPUT LISTIrE 


nanan 


nanan 


anana 


annnanan a 


o 


P00 


m3 


730 


£ 
8 


nS 


730 


MUTOF LCG CHART SET 


CONTENTS 


FRONT MO FEAR SPARS 
FRONT SPAR - ST. 10-1 
4B = NDI) 


CAL SIME C8000 Fst FOCI 30) 


00 M3 11.6 


TOCdbeL7Gd = W5ebess 
COMTI 


SAM 
THI G 1d T5509) 


THES & OFLA Fe 

YW CISSE2OD - WOCEIEON) P30, FS, Psd 

VALCIG TEC OIC ONE 
REAR SPAR ST 

Wap IDIics 


CAL SIME ¢10C076), TDCI 7000 
OO FA 11,6 

TOCt 118%) » 1550163) 
CONTE 


SAM TMS X OELTA RoW 
THT IS 321550) 
Tf C1SSte9) IPCUIB 7H) F0, 730,750 


YT E1539 TOC EID P) Lt ROW 


SET OELIA IW 20C «TO 7IRO - COMERS AD ISIS 
00 75t teas 

TOCeTehdS! eOCUsr 

TOCAGe Ped -Ordds 

ToC tbe 0-0 S 

CONT RE 

Toce or = Oris 

TOC (18%) * OCess 


TOCeIG) © Fed) 


X17 STRENGTH RIGMT ANALYSIS 
Go 10 FF 


WCAC. FEST CELIA 
S-COST M1-1) 
TSCt FOI NOSIMIND, 


TEST EACH COS OE NT 


TSCIEO) tay IMAL), 
COMPUTE TOTA PERN TIES 


UPPER COVER 
(6 ClOCehIGes Wi. Fey. 7S 


TWAFIODes Take CELTA TW 
Iwe NDI2) 
TSS(99) = THT AESOP TC C16) 
TSOP TDC BE? 


TES! FOR STR ORICNTATION 
16 CID - NOI20) 7150.757, 787 


OPT SEARCH FOR vif 
1S 1801+ TOC 11> 
@ to 7170 
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SEiP 


Wires MD CMeteid MAT - 


SEC F060 
SEC TeO77 
SECTNIOD 
secMmiig 
SECISI20 
SECt8130 
SICIVthO 
schtco 
MCIw169 
SEC T4179 
Sct 180 
SECT199 
EC Ive00 
ACHLID 
SECT 'O 
CMe 
SACHA 
Sach 
SCHED 
SECIW270 
SECiveu0 
SECI*290 
SC™H 300 
SICiw3i0 
schHwo 
SECI%3 IO 
SECT v0 
SCNT. 
SCH BO 
SCmHs7 
ACM 30 
SEC1%390 
SECIN4OO 
acresto 
SECTNNLO 
SEC T6430 
SAECTIWNO 
SCi4450 
acmseo 
SCN 70 
SECTHyCO 
SCIws90 
SECTH500 
Scwsia 
scmoo 
SCHS30 
SECTYSAD 
2 CWO 
StC™S560 
SECIWS570 
Sc t4se0 
SC Mhes90 
SLC T4600 
SICH SIO 
SECTNECO 
SEC T4630 
SECTYERO 
SC hes 
SIC T4660 
SC N69 
SC™HS70 
SEC ™EBO 
SEC T6690 
SCINMO 
=cw7e 
SCN 
SECTV 730 
SCHMO 
SCM Ro 
SECTy 760 
ScN7~ 


TOEFL RIOR BV Yee: abet Aaa ne aoe 


OB/1L7 


CARO tO 


1065 
1066 
1087 
10656 
1069 
1070 
1071 
er 
1873 
10% 
10% 
19% 
1077 
on 
1072 


1190 
1108 
trae 
1103 
110 
165 


IMPUT UISTING MUTOFLOW CHART SET - SHEEP WIG MO EPOCH MOU - 
ese CONTENTS, osee 
SC iu 70 
¢ COST. @ OR NOS. -- JSE OFT SIRUCT. NOS © MIN AND MAX SECT 790 
Mi? TWCrOOt> POCLBLe SECTHB00 
SECTHBIO 
c SETUP FOR SEARCH §1Be1 FOR FIRST PASS SEC THEO 
FIFO WSCebeISCi Pa SECTHB30 
tB-rOiit SECTYONO 
CML SCH ITSCOIDD SEC T4050 
SEC T4060 
SAM FS CMLS-- TSCOLI----TSCU55) TO TSCi4tt---TSC1 7) SECINB70 
719 «OO 7190 61.55 SECTS B80 
TSCUfeeOre TSC ag? SECTYES0 
7490 CONT INE $£CT4900 
SECT4909 
TEST FOR NOS SEARCH SECTY910 
UF CHSCHBOD - TSCLID) 7180,720, 720 SECTSSCO 
c SETUP Bled SL£CTY930 
TIBO TSCHRMTSCINO? -DiE SECIHMO 
W CtSCtthd 720.720, 718 SEC TYG 
718 CALL SFSCH CISCHitD SECT4960 
c SECTINSD 
TEST TEARS SECL14970 
IF CTSCIGd - FSCCNGI) 7161, 720,720 SECTY9B0 
7101 (BenOCea) 15990 
@O 10 719 SECTSO00 
S£CT5010 
OPT W SECT. FOUND -- COMPUTE DELIA W --SIR,RIBS.MISC. SK..ATI. SECTSOPO 
RO TOCtIeOd= 19C149)- 100689) SECTSO30 
TOC(318) = TSC¢S6) - TOCISG) SECTSONO 
TSC(3G)* TSC&SOeTSCIS3) TOC190I-TOCISS) S€C 15050 
TSCt3Sr= WSC(S2)- TOC 192) SECT5060 
TSCC37I® W651 d-TOCI9IS S£C15070 
G0 10 Fe SECT5060 
S€C15090 
c SAVE STRUCT DATA IN 4 BLOCK SECTSI00 
Teh & Feed 11.55 SECTS110 
TSCCL6%OD = TSCite SECISI20 
Fe20 CONT INE SECISI30 
SECTISING 
SEC1S150 
TEST CELIA TW UDR TWO CEQute (G1UPRD /GILHRD EXT WE CREODD S£C15160 
Fee ISC¢3a © OCC SECTS5170 
16 CYOCONI7ID F727, 727,74 SE€c1S160 
SECTSI90 
COMPUTE LOER COVER PENALTIES SEcTS200 
c TEST FOR VERT. SEcTS210 
FE 1F (VEIDD 705.725, 7240 SECTS220 
Fev FOC CLL7)= 1000116) SECTS230 
Fes TWIC1Ged= TOC +871/ TOC (88) SECTSOND 
TOC LID FOC CAS) TT LENE SEC TS250 
TSC ¢ 3B I= TSC) THT CIES) SCcT60 
TSCC3T7D © TSCHTTI TNT ISG) © TSCIS7) SC T70 
c SEC TS280 
c SECTSe90 
c s£¢TS300 
¢€ SECTS310 
c SECISWO 
c SMS COMALTIES? SEC15330 
WT WOCCITI = 1OC169) "OCI! SECTISINO 
TOC (1 7B) = TOCH 70) TOC i $£615350 
TOC«i@S? © TOCeLT7) SECTS360 
Toc1192) = TOCA ZED SC15370 
McrS3a0 
SECTWIO 
MCTR20 
SMECIWIO 
RCIA 
SECTISNSO 


oe eeeGUBROUT INE SFSCHeeeee 
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Ta aad 


CARO WO 


4135 
137 
1138 
i139 
H140 
ast 
tine 
Oasys 
Tiss 
U4 
116 
147 
tye 
hig 
1150 
vise 
tse 
oss 
iba) 
15 
1156 
157 
138 
19 
1160 
W168 
1162 
0163 
UG 
1165 
1166 
1167 
1166 
1169 
i170 
wd 
ye 
7 
La] 
un 
ih) 
a7 
11% 
Ws 
1180 
ite 


184 


INPUT LESTING AUITOFLOW CHART SET - SHEEP 


CONTLNTS 


OSE ARCH LEVEL 2 CONTROL - AL OHLABLE DESIGN SIHES&S#** 


Wht AND CPPLANAGL POULE ~- 


An annnnna 


enananaa 


o 


SUBROUTINE SFSCH (BSTRI #scoolo 
$0001) 

£C SEARCH SUBROUTINE, GIVEN BI. WhID AND BID $rscoozo 
#560030 

sFscoo70 

UW FS SEARCH ID FsOPT TSK, 2° TW, Seton iheuls #500080 
1Glet START AT FCMAX, 92 USE FCI-E # 5C0090 

@STR « NO OF SIR ¥SC0100 
SOK 

COMMON 112060) 012060) ,CD12000) .ND( 100) SFSCO1SO 
#SCOlbU 

DINE NS. ON ocii00), SFSCO170 
PTOC 1200) , TSC 14201, TS51100), THI CHOO) , TEEC( 3009 ‘ SCOIB0 
2LARIS (ed DNKUCH EE) ONO Ct sscorel 
$FSC0190 

EQUIVALENCE CTOC OLD TUPSHL DD CTSCORP TEM AT SP TSoCh) TIIG6II), srscocoo 
PEDC OLD OCINOT OD ATHTEE) COLTIODDD CTSECKRF COLISOIID, sFscocor 
SCOROMIED) OF931 01 CONT EBD O1H2I) FORISELD OLIN Tt, SF SCOz0e 
SISTREN, 06 36192, (SKN, DC 3700), CCNSID ON6IF), SF SCOe03 
OST ,DU4551), CSTRRO,OINSGID, SSCO2ON 
SUTIN, TOC IED TRE MX TOC IGS FD, SF SC0?05 

Bt EU NOCSOD) CIE NDCSTDD, CKEC ND EG TD CLO NOCH TIT, SF 500206 

FULO2 .NDI4G)1, CLOL .NDCHS FD FS. NDUNSI DLP NON SIO, F I NDOMOON, SFSCO207 
GUL ND (400), CK NDE ISPD, IKE NDE 3200, CIN,NDI SON), CISC .NDIO61), sFscocos 
QCISEC NOCSSTE, (NNO SII1, CL, NDCOOD? 97500209 
SFSCO210 

 Sco2z0 

SF SC0270 

SFScoe60 

SETUP B AND MOVE 105 $F sCaeg0 

SF 5C0300 

SFSCOUIO 

3001 TSC C1) eBSTR $FSC0320 
WSC13) STDC IS) SFSCO3I0 
¥WSS¢1e) © TOC(195) SFSCONO 

TSC CS= TOCKTIIZETSC OND OCOD SF SCO3SO 
‘¥SC0360 

eee SETUP KICAPS/SPARS), KIRIBS) FOR SIR, PL, HP, FOH. eee SF SCO370 

e000 NET EFF WIDTH FOR TENSIONS? SFSCOSTL 

VSECKSSC) & TSCULI TSC ORD OOV edd SF SCO 380 
TSECIC60) © DRISI2) SF SC0390 
TSECIONe) © TSCCID sf SCON00 
VSEC(ASS) = CISC © OFerisTy ate #scowio 
“*TEST Const ee SFSCON20 

IF (CNSID - DI2)) 3002, 3009, 3006 SFSCOK30 
«*TEST FOR STIR OR M/SPARe* SFSCONYO 

Yor IF (CNSID) 3003,3003, 3000 SFSCONSO 
30C3 IF 'STREN - Df 11) 3006,3006,3007 SFSCONGO 
3006 TSECIQn4) © OCC) SFSCON70 
3007 ISECT2321 = Det oF sconeo 
TSEC 12601 = ORISCH ‘SF SCONSO 
W008 MECIS33) © ISEC(232) SF SC0500 
oC ALC REQD T-BAR INSERTS, EFF TENSION WIDTH DATAS ce ‘SF SC0509 

30S TSEC (226) © TSEC (CES /TSC lene ISEC ewer Fscosio 
TWSECH2301 = TSEC t2eSI/ TSC (2d TSEC (232) SFSCos20 
TSECI2GI) © TOC UTTOTSEC C2399 Fscctll 

TSE CHAD © TSECIABL IA UTSEC (2699 - TSEC (ANG) PSEC 12601 -O(21 ORISE? IS SCOSZ2 
SF9C0530 

SETUP LOC OF FILFO.FS DATA SF SCOMO 

UF LenDeRd) SC0550 

UF een 14) FSCOS6O 

LF SeNDC1S) $F S$CO370 
#Scos71 

eeeCaLc. FOIL 71 FOR * BAR SET GY TENSIONSe? FSCOSTe 
COUN FT SUNT). ROCTOROCIL FRI CEE b eKNXU/KNOL SFSCOS73 

§ etO1t2) - ISLC FLOM 
TSSIGT) © TOC CTH /TOCS 7h CRORE EN ORMAICINOTOC (49) TSEC IAN) FXO 
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leh 


Cap NO 


WIND AD CPPtMIME ME - 


ANPUT LESTING ASTOFLOH CHART SET - SHEEP 
evee CONTENTS eves 
3810 IF ¢ TS5167) 9 300,300, 300% FsC0570 
BOO IF ¢ TS61G7) - TECHS) + 3005. 300.300 wSC0s79 
OOS TSC13) © 1$5167) SCO877 
Tssei2) © TsS167) scos 78 
c #sc 0580 
c TEST FOR OPT. Tw, OR TSK INPUT #090 
BOO IF O12 - IW) 302,301,302 7 $C0600 
wscoeto 
TW SEARCH - USE GPTIST) FCCR 7sC0620 
301 TSSc12) = TOCLe & $0630 
1$S167) = 155(99) #SCOGH0 
00 10 303 Sf SC0E50 
$F$C.0660 
ST TSK OPT OR INPUT -- tE5T 18 $F SC0670 
BO2  TSS167) = BON $F SCO6C0 
IF eNOCED - 1B) 420,303,303 $7SC0690 
S20 TSS(12) = TSC(B4? SFSCO700 
FSCO710 
c SETUP CONTROL POINTS FSC0720 
BO TSS(1000 = TSCI2)/TS5167) 500730 
TSS1G7) © VOCETI/UTOC ELI I/TSC (2) ISLC (232) + 185167) #SCOMO 
IF (TSSC@IV-TSCLS)? 422,423,423 #SCOP%O 
w22.1SCt3) © TSS167) 7 SC0760 
c TF sCOm 
¢c KEK RANGE TEST WITH ABS MAX KSK>F (KSIR,BSTRLMING SIRI) SFSCO TLS 
¢ SKI AMAXI® GSIR/(BSIR ¢ KSTROLMINISTRIDS SF SCOM2 
c OUSKIAJMAKI © BSTR/IDSTR ¢ KSTROLMINISTAD DS FSCOMS 
c @CrECK WITH REOD MAY, SET REQO 10 ABS MAX If GREATER = SFSCO7D4 
¢c OCHECK REQD MIN. SET TO .70 ABS MAX IF (A) RANGE REQO, SFSCO7LS 
c (8) IF PIN GREATER THAN ABS MAXe # SCOT 
c @eeCHECK ONLY IF STR CONST eee 7 SCO7%G7 
423 TSEC(2621 © THON FSCOTIO 
TSEC(2B3) = TaN ssco77 
tF (CONSID) 4230 .4230 4239 score 
4230 TSC(Nt2) © S?RSK wscoT™ 
IF CSTD 42I1 42319232 FSCOTR 
S231 TSCL4I12> = STARO 7 SC0780 
232 TSCHNIRD © TSCHAIZETSCOHI]peTHTLIOGI © TSCI2)) SCO7BL 
IF ATSCUN129 - THKHKD 4233,4239,4239 $F SCO 7B? 
4233 TOK = TSCU4I2) SCO785 
IF (TOON = THKKPNG 4294 4235.42 SCOR 
WOR IF UISCU12) - LP ETIOOIND 4235.42.56 4 6 ¥'£0790 
S27 TOON = 0. 70°TSCI4I2) FSCOPI 
00 10 4239 SCOT 
236 TON = TSCI4I2) sC0800 
4239 TSCINIZ) © TOK ‘¥5C0805 
sconce? 
€EE TEST FOR FOH ee° #scoato 
IF CONSID - 0120) S240.8240,480 wsc0820 
240 Iki= m2) sC0630 
c SCORN 
¢ ecco SETUP CAP ARTA FOR WX CALC. 1 PL OR HPD ener sFscoaso 
TOCCIOND = TOCMIGHISTSECI232) sFsc0B6o 
CAL SOT 00870 
¢ RESET CAP AREA TO Kol.0 ‘scoea0 
TOCHIG4) = TOCHIGI /ISEC (2321 ‘7500890 

TOCt196) © TSCC3BID #500900 © 
IF €TDC1196) - TSCE3D) 424,425,425 Fscos10 
Se TSOP © 10C1195) wscow0 
¢ C0930 
c eeoe TEST CONST. MIN GAGE TEST FOR O/T IN STR. CASE ONLY °° SFSCOWO 
825° UF (CONSID? 490,4250,490 ¥sCOsD 
c Fscovy 
SET O/T HIND. = 1D=8 F$C0970 
S250 TSC1409) = 1551100) FSCOI80 
ikl © MOC) 7 $C09790 
¢ e000 SETUP CAP AREA FOR NX CALC. (PL OOR HP) cose FSL1000 
TOC CEM = TOCL1G4) “TSEC (232) wsciero 
Cal GOT wscie20 
c RESET CAP AREA TO Ke1.0 SC1030 
TOC1 Med = TOCEI@I/TSECI232> FLIMO 
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OO 


CARO NO 


278 


1330 
11 
1332 
1333 
13 
1335 
1336 
1337 
ia 
1339 
16 
LP od) 
the 
13 
ee 
1S 
16 
th? 
ine 


INPUT LISTING ASTOR LOM CHART 


an 


yi0 


aana 


“ean 


anan 


490 
“900 
991 


"93 


uu 


CORMTENTS 


TSS0h00) © TSC SID 
HE ATSCOS) = TSSESCSI) NOB NOT NOP 
sci gs = 15511003 


FCrAx © 160030, FC ST/RT © 155167) 
19567) © Tosther 


If tTS 03) - 15567) HNCSOdd HTT BLT 
SETUP £03 F050 
TSStGT) © 1S! 
TSS112) = 1951679 


SET ID FOR TSCH IRAE IsG< t 


shen) 
CAL WSCHIIS! 1000 

QF thts) - TOL) $04, 30% 307 
Lote, Tho) FCMAK 

00 4 161% 

INS BLES 

TSC c ape TSC de RID 

TS519b © TSCLIVSD 

F LTSSebPd- TCs) TO, $09,509 
UM FX GATA, vt TOU 69r 
wars 

00 310 4*1,.35 

IN-16N 

TSC 1D 63a TSC IND 

GO TO 39 

FS TOO LARGE, SET-FCHAXE 
TSB TWSStler 
TSSCl2reOCBorels. aaa 

GO 10 306 


F3 Ok SAVE DATA AM LOC OF DATA 3% CELLS PLR ROCK 


eee FOH CASE. FCMAX, 91.0 ere 
Wile) = Isc1d 
wsc12) = OD 
GO TO 492 


erePLATES AM H/C Fee 
TSS(67) © TS5tled 
TF CTS 13) - TSS6672) 499 HOS 89 
TSS(673 © ISCtS) 
TSStl2) «© TSCA¥F 
G TO 493 
TSCC3) = TSSI67) 


SET 10 FOR ISCH TRACE GG 2 


TSG-nnter 
CAL FSCHITSS(I23) 
GO 10 399 


OO 308 1-1. 35 

TSC Pos90)=15C 01+ 380) 
TSS(9Ie TSCL3O3) 
TEST SLOPE AT #3 
USSU OCS TSSC 121 


SET 10 FOR TSCH TRACE Im = 3 


USGeNDI3> 

CALL TSCM CTSSERIOD 

HF sfOl - NDI2ZdE S10 633,833 
1SS1Br= $500 3831 

IF (195¢9)-T5S1Abe 833. 307, S12 
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“eT 


eh EP 


WIM, AO EPECIEIA WES - 


FS1050 
1060 
3901070 
7% 1080 
¥sc1090 
#31100 
SFSCIIIO 
¥SCliee 
SFSC1L30 
SFSCII4NO 
Ft140 


#901160 
Sschiot 
SFSCII70 
FSC1160 
SFSC1190 
FX heuN 
SFSci210 
Fwiew 
SESC1ENO 
FSCO 
Sk '26U 
SCZ 70 
FSC 1lBO 
4 SC1e90 
SCT 
Fscin 3D 
SC1330 
FSCO 
FSCO 
SS 4b 400 
F1370 
Sfsc13e0 
FSC1390 
SSCt400 
SESCINIO 
FSCINCo 
SC 1430 
FSCIN4O 
SFSCI45O 
FSCINFO 
SESC INTC 
FSC 1480 
ssrtsan 
9°51500 
FSISIO 
Fscisco 


SC1S30 
SFSCIS3! 
FSIWO 
SSCs 
FSCIShO 
51570 
#31580 
#501600 
Fsc1610 
FS :620 


FSI6e9 
HSC1630 
FSI 
SSCIESO 
FSCIGEu 


Bliss 


CAD 10 


INPUT LISTING 


c 
si2 


x7 


CONTENTS 


SEARO TC LESS THAN £3. SETUP FZAND FI 
TSSChdse@e MB eissiles 
wrceous 


SET IO TR IH IRAE sg eo & 


15800145 

CAL TSCHITSSHIEDE 

WF ctOn - N20) 313.318.3513 

WSS(Ote SCs 

BO 318 1+t. 

IN 1F2 

TSC CINE TSC tf > 3801 

WF aC - MOI] FINO. 3148, 3140 

IF C1SSt@d-TSS69)) 3145, 320, 8 

KF CeMi2d 

WF CTO1 - MD6200315, 315.3% 

0 Fi OATA 

TSSC1Od © TSSt0b) - OeSAreemssej2r - WSSehiyd 
OF (PSSC300 - 7OC150270138)) 329. 329,323 


SET IO FOR TSH TRACE isG eS 


1SG<00'5) 

CALL PSOHETSS¢1095 

1 ClOL - e120) 316,321,316 

TSS17= 1501983) 

OO 3i@) (-1.5 

toe bot F 

TSC (ir TSC tte 

INTERPOL ATION 6 1 

Ima 

CAL OG (15500) .1S517)) 

iF Cm - NOI29) 3-7. WO, 331 

LEFT, PONE 1 M2 102 WO 3 

AF s¥SSe1te - FSSC10) - TOC(S0) 00380) 328.317.5317 
WF CTSS5¢@)-TSS0719 309, 329, HY 

USE F2 DAA 

mmr? 

40 10 338 

TSS(9r- TSSte> 

TSS¢@)> 1SS17) 

TSS¢12eTSSt19t 

TSStstbe TSS¢10) 

murs 

ursare 

Ure-ari 

ries 

@O 10 315 

fF2 MG, TEST EPS FC 0,* USE F3 DATA 

W cTSBci2) - TSSe11) - TOC1S0)¢D1 380) 309,319,319 
TSSCAtbe ATSSEUDE © PSSCh2ID DIZ) 

@ TO -~ 

Fi mest EPS FC 0,¢.USE Fe.F3  -t00P 
IF CTSS0T4) ~ TSS020) - Ot 3B eTDC(SOr) 324,324, we 
TSS¢ sO C TSHATOOTSSULL 82h 

@ To £3 

TSS¢71-TSS100 

TSS11G)-TeeCite 

omrrt 

wreare 

ures 

TSSebto~ CFSS050767SS11202 Ot2) 


OF CTSS012) - TESCO) - 063982 °TOC1501 121) Be3, 3, THO 


SET ID FOR TSH TRACE iso + @ 


1S = Ore? 

Cat IscN Irsseiin 

OF GO) - MOt2t) 325, %3,325 
TsSt@eTSc ey 
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MSTOFLOW CHART SCT - SHEP 


WING AD CPPENUGE MODULE - 


¥SI6 
wx 1680 
501690 


Ws 
SCIP 
FSIN0 
FSCIT20 
SCL730 
FSCIMD 
Scio 
WIT 
SC 1780 
¥SCi70 
SC 1800 
Fie 
#SC1820 
FsC1e8e5 


SC 1830 
FSC 1831 
TSIM 
FSC1850 
SC1860 
#sc1e70 
sc 1880 
#SC1900 
FSCI9I0 
#sc1s0 
97 SC1930 
SFSCIMO 
FSCi950 
SFSC1960 
SC1970 
Sc1980 
SC 1990 
 Ssc2000 
#SC2010 
‘#Sc2020 
sc2030 
F200 
wsc2030 
#SC2060 
Fsce07m 
Sc2080 
3 sc2090 
#2100 
wsxcei0 
Fsx2120 
w#sc2130 
scan 
FsC2150 
C2160 
wscein 
wsc2ie0 
scz190 
wse200 
Fsc2210 
Feo 
Fsc22e5 


2229 
x22 
wLeeN0 
wz 


) 


SAin 


‘ 


CRD 10 


OMUT LISTING ~ 


333 


manna 


lz 


wt 


Ww 


CONTENTS 


OO 337 1. 

Wie tolFe 

TSCUIMY > PSCC o3@0 

@ 10 BS 

1O=3 EXTRAP, RIGHT TEST WITH Prax 

WE tTSS082) Dt37) - TSC431) 332,300,309 
WOM 2,3 10 LAND 2 

OO 433 te1.2 

TSS leGretssiteM 

TSS1$e9)=TSS¢1 e100 

wert 

trinare 

Lraar3 

UF yon 

TSSCt2) © LTSSEI2) - TSCr3r1 OIE) 

IF CTSS0122 - PSSCHT) - TOCESO2 DIN) 329.3-9,3% 


$£1 1D FOR 19cH TRACE 1s ° 7 


IMGAOi7) 

CALL TSCHCTSstr2)) 

17 ¢hOT - ND(2)) 335,338,335 
TS9t9) = TSC 1 383) 


“OO 333 1+1.5 


eters 

TSC HIND TSCC1+ 380) 

60 To 36 

get For 

TSC (3)=TS6¢12) 

IF ATSSCLLD © OC 3BS°TOC(SO) - TSSC12)) 339,329,329 
se erl2be CISBCELCTSSC1209 012) 

08 10 3h 


Ht FOUND COMPUTE TH) 
1951051 + 10Ct47) 

WEST FX WITH FE) AO F3 FOR INTCRVA 
IF (TSS 189-TS6165)) 411, ee eS 

WF C9568 0-795612)) 912,308. 309 


ET 10 FOR TSCH TRACE Is = 6 


Ise—00 re? 

CAL TStMcTSs1@5)) 

17 Lmt-tax UE MS, GO TO EXIT 
WF ¢101 - RDC2)) 380, 1,399 

OM NG, USE MIN OF FS .F2,F3 

AF CFS 075-1810) T. eS, 2 
WC TSS eO)-TS91801309, 329,325 
OF CTSS07)- T5519) 94, Pee 309 
VBE Ft DATA 

eur! 

@6 10 330 


TIMD FAX FOR START BETWEEN 3 MO FMAx SET Fhe 
wrurs 

usar 

ure 

TSO MeTSS(9) 

TSSt1Os=TSS¢521 

PEEIGR) © OF PO TECIS) - TSS¢10) 

POE) 

YS61 Fhe TSSC 2800 TSS¢(6a) 


SEE 10 FOR Tset TRE 1s0 ° 8 
196-9019) 


CML TSCM ITESErt) 
IF C1Ol - MOWP)) 351,361.35 
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MSTOFLOW CHART Sit - SHEEP 


MING AD CAPLNNACE MODULE - 


FSu260 
2270 
ysceee0 
92300 
Fscese 
wsceiz0 
wsc2330 
wxz2Ko 
$F sc2z350 
FSC2360 
wscewo 
wEc2390 
WS 408 
wee 
Fscev20 
SF SC2430 
wSCAu40 
#sce450 


¥sCee0 
FSCA46! 
SFSC2470 
wsc2vee 
FL 
sFSc2500 
FSC2510 
sFsc2sto 
F2A0 
wscesso 
#SC2560 
#Sc2570 
sFSc2500 
¥9C2590 
FxC2800 
F620 
¥SC2620 
7630 
se2n0 


Scouse 


wsceese 


wsceere 


Bish 


CARD NO 


1991 
iwse 
1893 


(981 


ms? 


B77 


STING 


TS$S181-TSC¢ 393? 

OO M2 141.5 
Ineftre 
TSCLINDOTSC¢h*380) 

IF 11S$100-155¢793355 


355,353 


MUTOFLOW CHART SET - SHEEP 


CONTENTS 


OME F2 TO F3.0C Fe AND INTERP 


Wei 3 

Lrseure 

WSS(121 © TSSettd 
TsS(9reTSSisn 

oo 10 HK 

UD THK ONDA) 


TSSCI2I=TSSC Ltd eTSS(68) 


SET ID FOR TSCH TRACE 


tSOenD110) 
CAL TSCH CTSSi12)) 
WF ¢10l - MDI2)) 356, 


360.3156 


ISG * 10 


TEST [POC FOR 10 AND TBAR 2,3¢.00) 


1$S(9)=TSC¢ 383) 

DO 357 1°11. 

Ine loury 

TSC CIN} © TSC11¢380) 

If (IMX -Dt10)) 358, 


326,326 


af (TSS(89-15S19}-0164 11326, 326,359 


move 2.3 10 1.2 
NeLF I 

tFiefe 
LF2ars 

UF 32N 
TSS(7)°1SS16) 
TSS(@)°1SS(9) 
TSS(1OeTSScit) 
TSS(iLeTSSc12) 
00 TO 
rs 


{F (TSSC7) - TSS(B)) 353,353,338 


TSSCLED = S562) 
eo 10 8D 


F2 NO UNG SET FCMAX = F2 MOVE FC2 OMY TOFS .TEST 102 


TSS(G1)= TSS¢to) 
TSCIS be TSStat> 
TSS(G3= TSS) 
if (NDI2) - 102) 32, 


373,368 


LE LESS THAN LAIN, ASTR OK RLIAMIN 
TSS(S8) = TSCILFI © 25) 


TSS (BO)°TSC i405) 


TSS(G21 eC TSS(Gt) © TSS163) O12) 


SET 1D FOR TSCH TRACE 


1SG=NOC ED 
CAL TSCH (ISS(62I) 


TEST 101,102 FOR TYPE OF DATA AND CONDITION 


W «101 - NOC2)) 383, 


2 OK, SAVE IN BASIC 
TSS¢ hi beTSSt62) 
TSS1@) © TSC13B3) 

00 M 141,58 

the leLre 

TSC( 1m o3SC01 9380) 
TSS(58)°TSC 1405) 
INTERPOLATE AT Ro1.0 
IkOres 


365,363 


Fe 0 


CAL COW (TSS(61) .TSS¢580) 


TSSt12.-MC 47D 
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WING AND COPLIZGE POOL - 


wsc2zee0 
 Sc2890 
wsc2%00 
wscesio 
#2830 
MSen0 
S620 
scene 
wSC2970 
Fsc2980 
SC2990 
SF SC 3000 
SFSC3OIO 


scr ns 
wsc3020 
9503030 
sco 
503050 
‘SF SC 3060 
Wsc3070 
#SC3080 
sFSC3100 
#SC3IO 
Scx120 
rss 
sco 
SFSC3IS5O 
SFSC3160 
FSC3170 
wscsieo 
#563190 
SC 3200 
Fscse10 
sc3220 
SC 3230 
FSCIANO 
Fsc3250 
Fcrw 
FSC 1270 
FSC 328u 
FSCI290 
9 SC3300 
SC3310 
FSCI3IC0 
FSC3I30 
FsSCINO 
FCI 
SF9C3350 


FSC3369 
97303370 
#FSC3300 
9753990 
SCHOO 
rscw10 
wsrw20 
wFSCW30 
CMO 
wFscwHs0 
wrsc 80 
ersc rec 
$rscme0 
srscysoo 
wees 
wecys20 


at 


L Alia) SNPUT LESTING MIIOFLOM CHAAT SET - SEP WING AD CCMA MIUVAL 


caro NO coos CONTENTS esas 
1562 ¢ SET IO FOR TSCM TRACE 186 © 12 
1563 c 
1S isostHri2n FSC 3429 
15 CML ISCH 1ISSCI2I) a Hs 
166 WSCISd© TOCKST) FS 340 
S67 WF oCfOl - NDI2)) 3650,336,3650 SC3S0 
15.8 c TEST FCI-Fe sc 3560 
1569 3650 IF CTSSCI2) - TSSU11)? 3651. 353,339 ¥s03570 
+570 Wi Ws5¢g) = Essar wos8o 
1578 TSC63) = TSSthbD SSC 3990 
Se TSSChd) = FSStte! # SC 3600 
573 Tsstt2p © 1sC43) wscwio 
15% we LF3 SC 3620 
18h ry Fe sce 
15% Fe eN FSCh4O 
i377 GO 10 SSC 50 
1578 SF SC 3060 
96m ¢ FouBe NG TEST Tit FSC 3670 
1980 BAS 19S163)- 555162) SC 3680 
185 IF tEssrete - TS5tG1) TOCtS0)1 377. 366, 165 Fw 
1862 MG Sse Tssh sc3y7L0 
1583 TSSIEO) + TSCININD 903710 
1st IF (802 - NDI2)) 370.370. 307 soc37en 
1595 c Fre TSK NG FSC 3730 
1585, 3G IF CISSIG3) - TSS(G1) - TOrt5Od) 377,370,370 S050 
1867 37D ISSUED) SCTSSIGIeTSSie 399/012) SC 370 
188 
1909 c ST 4. (OR TSCH TRACE tsG > 13 
1990 
im [5G MOCIOU ents) FSI 
ne CAb ISH LISSI621) SC3RO 
193 $F 10k MDC2D) ST, Bod 37d 503770 
15 c SC 3780 
1995 € Str uw F2 PUNT srscs™m0 
1596 S7U Vout cree TSC0 393) Sf 3800 
im? Tse Chl yeTSott & SC3OI0 
(998 00 372 11 FSC 3820 
ima IN recke TSC 4330 
1600 Sh Va COO TSCde Sud SSC RMO 
1601 1965012) = TSSCt1) FSC 3760 
1602 GO TO BO FSC3870 
1603 c SC 3300 
160% c FIRST 62, AGIR NG, SCTUP SEARCH FSC3I99 
1605 37S TEN ESOU ete MISC beth ot FLING 
1606 3% VS tN) Toceeies SC S910 
1607 TSE 1G2r s4TSS(G1IeISS(G3II 0121 SC 3920 
1608, ¢c 
1eor c St ID FOR ISCH TRACE ISG = 1% 
ten c 
wu TSGeNDEIC) erDC4? $FS03909 
te CAL ISTH (TSS(62)) SC 3930 
UW END(2) - 1013 371.3%, 371 FINO 
c FC2 NG, TEST 102 FIMO 
FM IF .1SSIG2) - TSS161) - 1015009 377,337 SC 3960 
JF 1SS(63)-1S51GP) FsC3970 
1617 TSCU39°TS: GSE sc 3980 
18 1F 0102 - NDI2dE 370,375.37 ¥scs990 
¢ SC 3991 
1620 c se" CK AVE OF PE I AND I-ieee 9503999 
1e2z0 377) TSStGEl = CISSIG2) ¢ TSSI6DI NOE #scx0co 
1622 CAL TSCH (TSS1621) Wsc4o10 
tezs 1F ChOL - MOV20D 371,437) Fsrene0 
1. Fx 
‘2 MIND FOUND SETUP PO, LAI LESS Tun Lax, TEST FCRAX FSO 
zs c SAVE THI DATA FSC4050 
1627 MOO IF 11SC039-19916591399, 399, 38: WSCx060 
1620 Bl TSS 1645°1SC 1383) F SCHN70 
1629 Ball OO We 191.5 ¥SC6O80 
1638 M2 1 02251 TSCA 1 3B80r #304090 
1631 ¢ TEST FOR LOF OF Fr) SCu1Io 
lS 4 1F t3sselie-tsS165t) 383. 392, 366 wstei20 
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ee Re RETR pater x2 ae, 


Osis 


4am NO 


Fer 


INPUT LISTING 


383 
€ 
ar 


CONTENTS. 


IF CTSS1B)- 15516401 305, Soe, Te 
OME F2 TOE, MI TO re 
WeLFL 

arieire 

Ur2en 

T5$171=T1SS18) 
TSSelOseTSSees 
TSStO1 = 1SS164) 
TSSchddeTSStose 

DO 305 121,35 

the tent 

TSC ¢ INDO TSC1 +225) 

@0 10 400 

MOVE Mm TOFS 

TSS¢Gbe TSSiGy) 
TSS1423=155165) 

Le Se 

GO 10 387 

1F (TSS()-TSS1G4) 1389, 390,390 
move MI TO F1 LOC 
TSSCPe SSG) 
TSS110<TSS(65) 

wart 

00 10 387 

WOME F2 TOFS, ME 10 Fo 
wars 

arseur2e 

Uae 

TSS(9)= TSSI81 
TSSii2deTSSC1) 

ero 31 


fFa2em 

IF (1SS¢7)-15519) 396,399,993 

INCREASE FI 

TSSCIDISTSSCITE - OCSBICTSSCSED-TSSC1OId 


SET 10 FOR TSCH TRACE is ° 15 


1SG=ND1 10) ¢NDtS) 

CAML TSCH (TSSii00) 

IF C109 - NO(21) SD, 3 
TSS 7)" TSC 1383) 

eur 

00 395 391. 

Lh al Real 

TSCCIND®TSC1t 6380) 

@0 TO 400 

DECREASE £3 
TSSCISPSTSSILE) © DEBI (TSScias-FSseisys 


SET 1D FOR TSCH TRACE ts - 16 


156-01 101 0h 16) 

CAL TsCH 11550120) 

WF ChOl - MOI2)) 397,401,397 
TSS(919TSC¢ 383) 

tours 

0 To 8 


INTERPOLATION MD 2 


Wren 

CAL COM CTSS(201,1SS171) 

WF CL - MOIZ1) 881.408.4500 
CxTAAP LEFT tet TEST Fb LF2M0 
UF ¢TSSC70-TSS6811402,403 403 
OF CtSSt7)-TSS160)1 Fes 806 408 
AF (T9St0s-TSS 160) ) 328.408.9086 
EXTRAP RIGHT ,[Le3 VES! F2.73,M1 
WF ¢TS$182-TSS19)1403,403,505 
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AUTOFLOM CHART SET - SHEEP 


WING AO CHENUCE POOLE - 


eeee 


#SCVI30 
4140 
7 SC4150 
¥scviee 
FSV 
wscule0 
WSC4190 
FSC6200 
wscu2i0 
wscu220 
SCK230 
SFSCH2NO 
SF SC4260 
4270 
a SCx280 
FSCH290 
FSCw300 
sFSCW310 
FSV 20 
FSC4330 
HSVHO 
Scvyso 
SCY 360 
SC4370 
FSC43RO 
SCv390 
FsCws00 
SCWIO 
wsCH20 
OF SC4430 
SF SCWd 
3 SCH4SO 
SFSCN46O 
FSCw4 70 
SFSC44BO 
SCW490 


wFscwgg 
sFSC4500 
F510 
wscu520 
564530 
FSCWWO 
Wscws5o 
SF SC1560 
scvse0 
74590 
# SC¥500 


ween 


warn 


O6s1t/% WPT LISTING AJTOPLOM CHART SET - SCP Wis AD CPV MOAL - 


Cam 0 evee CONTENTS: eoee 
10s 805 IF 1155199- 155164) 1 309,406 406 #SC4780 
905 c USE MI DATA, MOVE TO I Loe FAL 
1705 406 00 407 [+1,35 FA4800 
177 NO? TSCile sre TSCEH eee) SSCNeIO 
1708 @ to 399 Fue, 
709 c SSC+Bv0 
in0 c fre FOND, SET UP Fre DATA rs4650 
me "OB TSS1GG) © TOCI47! FeseE0 
me c 
ms c SET 1D FOR ISH TRAE 1S9* 17 
m8 c 
15 1SGeNDL10D MOT) 

16 CAL TSCH (1551669) 

m7 WF (LOL ~ NDI21) 409,403,409 

me c TEST TH tre 

19 409 IF CISSCE4)-TSCI3BSI) 4OG.410, 399 

1720 10 IF CESCI25GN- TSC 441111399, 399,406 

ret c 

1722 c 

res c SETUP FOR EXIT Frost SUBROUTINE 

ven FA OD 3990 11.55 

1% BPH TSK Tesie TSCi le SHO) 

1765 c 

Re? c @OORESET KSKIMIN PAKh Fee 

178 Tanned = BSECIOR2) 

eRe Teer + TSECI263) 

174 c 

731 

7s c soEXi tere 

1733 3990 RUIUEN 

17 [~ 

1755 Covscececsceseuseccercesevsnesuarcrsvee 

ys c 

Ws c eeeeeMROUTIE BDI erere 

1738 c *eP INTERES ATLOM/E VALUATION FOR COPPRESSION STRESS, GIViN IB/Tieee 

1739 c 

mo Coeecevececececccsserr 

1m c 

m2 SWOROUTITE BOT GOT o010 
1m c fot O/T) CAC. SOR. GOT o020 
i™/~ c GOT 0030 
™ € REVISION ~~ O1-10-66 -- NEW FOOT BOT 0040 
UP c @or 0050 
m7 c GOT 0060 
"Ae c ee REVISION - 05-29 68-- AO PLATE LOGIC ¢** oT 0070 
AS c BT 0080 
1% c GIVES FC +,- EFS. BOT 0090 
16 c Ket fc AT Ot BOI 0100 
1m € iKe2 FC AT (B/TOFC = BI/TSKIIFC) BoT 110 
1% c BOT o120 
1h c BOT 140 
17s COMIN 112060) .612050) .COL2000) .MDt100) BOT O150 
17% DIPENSION OF 100) TOC 1200), TSC (420) 1956100), TOT I4) BOI 0170 
1757 COUIVALENCE (TOC CLD TURINEDD CISCUDD TOMEI) CTSSELDTET96ID), = BOT O210 
178 POTKKP, TONNOSD) CTBT OND TORSETDD gor oc 
17 EQUIV EPKE (LCE) DEIVOLT)  ICKSK OF BCT, BOT cero 
1760 FDIC 014621) CONSIO.GINGIDD BOT oe! 
mm COUIVALENCE (IL MOCO) ) CIR NOC IOND IKE NCB 0 dt NOE TID, Gor 0230 
me TCT .NOI3OF BOT O23: 
1733 c Gor 0270 
ih) c Gor o280 
17% c @0T 0290 
1766 c eee SETUP CONSTANTS FOR STR, PL, HC ANALYSIS ¢** BOT 0300 
1%67 S60 TOTI2) = TOCHIGI TSCie) Bor os10 
1% TeT¢3) = Orie @0T o320 
1™ Tetiv» « OTC @oT 0330 
7 If (CNSID - O11)? 561.562.5635 Sot ONO 
mM c BoTOONS 
im? c ere STIR eee @oT O30 
wn S61 TAT?) + OCKd) Bot 0360 
17!” Tetess + Isr ives @ot 0370 
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RR REE RRR a eee eer reer aa eee renee eee ee eee eee eee renee eee rere anaes eeeeeee reese ee erccecrncccaa cece eee eee eeereececececce eT NT TE ——————EEeE—e—e=—ee—e=_esS 


Lai tea! 


CARO © 


175 
17% 
iw? 
17% 
177 
7 
a 
1782 
1783 


DONT LISTING MUSTOFL OM CHART SCT - SHEEP 


ft 


83 


id 


CONTENTS 


eee STR, PL. 1C90.0 eee 
TOTts) © OCC) 
4F tlk - NOCEI) 569,568.60 


eeve TEST FOR TYPE OF O/T ANALYSIS. [Kiel OR 2. eeee 
IF CIKE = NDCED) 56,56,60 


eoee 1Ktaa. CALC FC FOR GIVEN B/T AND TSKIN eves 
CALC ALPHA CORRECTION FOR B/TIPHYSIC AL )--STR-PL-HC 
TOTES) © TSCI2]d/TSCINOD? 
TOTc2) © TRTC4). TRIG3) + OL) 
TOTCh) © SORT ID¢SsetBTiSrecTBTI2) © DLs © Old? 
TSC14O9) © TSCCNODI/TOIEL) 
AF (YOC(56) - YSC(NODID 41,531,531 


INTERPOLATE 
TenDUl> 
UF CTOC ED e12) = TSCIHODF INT 42,44 


INTERPOLATE 0 TO FCI 
TSC 13D: 64d TOC (S79 TSC (409) TOC (579 /TSC (409) 


00 10 53 


USE FCI 

TSCide1) © TOCKED 
TSCINOB) © TOCIIeI2) 
@o To 98 


TetonDiL) 

WF tTOCelol2) - TSC14OD) 149,452,446 
TSCCMIND © =TOCE 1-0) 

TSC(416) © TOCCI) 

Tscan « TOCCHORID/TSC(4O9) 
TSCOWID) © TOCCNO122/TSC (409) 


WING AND COPLNUGE MOOUE - 


@OT 0690 
got 070 


YSCOG1S) © TSCINIMDS LETSCEHIGI-TSCEMINDTOCTSCIMIT7) - DCL) D/CTSCBOT 0710 


UCWNTD-TSCHMIOD DD 


CAL SS (TSCI41S)) 
TSC(4t@l= TOC CNS I /TSCINOD) 


INTERPOLATE FOR FCI 

Imeni2) 
CALL COM CTSCOHI4) ,TSCO%S 7D) 
TSCCRBL) © TOCKNT 
CAL SS (TSC( SBI? 

TSCi420) = TOC(4S) 

TSC (9081 2485 ( TSC E420)-TSC1409)) 
TSCi407) © TSCC3BI) 
kxenDi2) 

TSC(413) © -O¢96)«10CIS0) 

UF CTSC1N09)-TSCO420)3 46 ,.% 4) 
TSC (483) = 0636) °TDC(SO) 
race) 

TOC1S2) = TSCCWBbeTSCieIS) 
CAL SS (TOCISIDD 

IF fKK-ND(2)) 48,49.48 

wel FC TORT OF FCI 


W CTSCeHOS> - TOCtWS)) 51.90,52 
TSC(BBL) © TOCISIF 
Tat ts20) © TOCI4S) 


@ 10 87 


TSCIMBLD © TOCISE) 
00 10 B® 


ce 2 FC TO LEFT OF FCI 
WF CTSCtVOB)-TOCINS)) S2,50.5) 


SECOND ST. LINE INTERPOLATION 
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Bot a720 
@oT 0730 
Gor aM0 


3 
O61 (PUT LISTING MSTOFLOIE CHURT SET - SHEEP WING MO COPTIECE POOLE - } 
‘ 


CARD NO bie CONTENIS eeee. 


1o6 SP USHA SOL PO TSCUIBL eA TOC ASL) -TSCUSII IE ETE HOON TEC INOSP ETS IN2CBOT 1050 
1047 09-TOC 145201 @or 1060 
18 c @or 1070 
He CAL SS 1TSCH3etIe BO} 1080 
19650 IF C1SC1808? - ABS CTOCINS! - TSCINOSII) 55.54. BOT 1090 
105 BH = SC138ld © ISCeNOTP @oT 1100 
1 ¢ @Borolics 
1653 c 10 SETUP CxiT Gor 11t0 
1 30 GO 10 53 BOT 3120 
1055 c @or 1130 
1056 c BOT LIND 
1657 c tke2 , FIND IC AT @/T MIN © B1/3SK Gor 4150 
1658 c Ree (B/TIFC /IBIZTSK) BOT 1160 
1-9 €o lenDth? @or 1170 
1860 c gor 11@0 
leat GOL TSCINESD=TOCALD @oT 1190 
1962 CALL BOTC CTSCE4EWD TSCINITI? @o! 1200 
1863 c goTolcoo 
18t4 c TEST POINT 3 @ot 1210 
1065 WF ATSCi473 - Of1899 61.6 G2 @or I2c0 
1666 c BOT 1257 
1067 c FC IS LESS Tea F cas, SOLVE FOR FCtREOD) BOT 12740 
it] Gi oTSCtNI4D © TOCKSONMI2) @orei25o 
1989 CAL BOIC CISCEHIGTTSCUUI TED @or 12u0 
187 SF 1000) - TSCO4E7D) G10, 64.64 @OT 1270 
ten GIO TSCHWIG) © TSCONIND © TOCKSO) @o101200 
18? CAL BOIC CISCENIG) ,TSCI4I9DD GOI i290 
1e73 tO) - TSCt419)) 615 ,65,66 @or 1300 
18m Gib TSHCtehes » TSCI4tG? BOT 1310 
wm FSCUWETD © TSCCNESD @oT 130 
10% @O 10 6t0 BOT 1330 
1077 c BOT 120 
is c DO POINT 3 wor 1350 
1979 8 Got 1360 
1680 TSC %161=TOCGaD @or 4370 
tear CAL BOIC CTSCONIGI ,FSCI4IGID @or 1380 
1982 IF (0t1)-18C04190) 63.65.66 @o1 1390 
1883 63 TSLE4I79- TECHIES) @oT 1400 
108% TSC(¥191 © TSCCNIGD Got 1410 
1685 WF ANDCI2) - 0) GY .04.62 @oT Isz20 
1@86 on TSCUSOL DS TSC ceded @OT 1430 
1987 @0 TO 33 GOT Ineo 
1868 BH TSCA MBI TSCt4 IGP BOT 1450 
1603 @ 10 33 BOT 1%60 
1e@30 c BOTOINSS 
oo c MZ LESS Tee 1.0. FIRST INTERPOL ATION GOT 1470 
(o92 OB TSCINISD © CTSCUNENDSTSCHN IBID DI2d @0T 1480 
e933 ¢c @oT 1%90 
18> CAL BOTC 1TSC64IS), TECINIB)) @or 1500 
1om5 MF tTSCO%IOd - D190) 69,.67,58 Gor 1510 
1e38 G7? =TSCHSBID PTSC ONES) Bot iS20 
1997 @o 10 $3 @or 1530 
1698 GB TSCAN TY) TSC14IG? GOT 10 
1099 TSCUNLPPOTSC re tBs Got m0 
1900 Go 10 70 Bor 1570 
1901 OF ISCI41G 3 TSC1415) Gor 1570 
teo2 TSCISISDSTSC NIG) @or 1560 
1903 FO TSCEN ISPS TSC OGD © AETSCOWIGE-TSCAGEDDOETSC WE7)- DELPE/CISCESI BOT 1590 
1906 td - TSHUNISIDD GOT 1600 
1905 ¢ @oT 1610 
1908, CALL BOTC CTSCeNtSe  PSCisia) @0T 1620 
1987 OF CABSCTSCINIB? - Dead - 1641 Dt10t) 67,67, 700 @0T01625 
108 Fee IK © MI2> GoTo1630 
1909 CAL COM CISCINENe TSC INET? BOT 160 
i918 ¢ Got 1650 
193 TSC(mBtd © TOCeNTD @o? 1660 
isi2 Bot 1661 
(913 ¢€ o¢°AFE POINT 2 10 INTERPOLATED FCo- OF 6 ¢! BOT 1662 
tis WF (TSCC3BI1) 67.67, 701 @oro1ess 
1915 FOL CAL BOTC 11501381), TSCISOS)? @o1o1670 
1916 TSCte13) © FscewOsd - Detp soreiss 
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OBs11/% VOUT CISTING AUTOFLOM CHART SET - SHECP WING AO COPENNACL POOLE - ‘ 


CO eee CONTENTS. ecve 
OF CABSITSCI4E32 = OCGVI O10) 54, 2 sores : 
WO2 WF CTSCINT3e) 71,22 e0t01680 
@oroices 
FCh TO LETT OF FCK Gor 1690 
A Wkenmt2? Gor 1700 
TSCUMTS) © CTSCeONS) - TSCeMBLE OCOD @oT0I710 
@1 «TSC ew sSreTscis > Gor 1720 
TSC CE 1Bd TSC i408? Got 1730 
@ fo 73 @OT 10 
¢€ BOTO1 we 
¢ FCI TO RIGHT OF FCX eT 170 
Te Kener? @or 1750 
TSCOW13) © CTSCIWIG) - TSCCIBIIIOIOD GOTO 770 
OO TSCHN IS PeTSCI SBI) @oT 178° 
TSCIG1 Pd°TSC (40S) @oT 1790 
TS TSCABBL PH TSCLIBIDOTSC UNIS) GOT 1800 
¢ @or 1610 
eee TEST FOR FC NEG. eee @or 1620 
WW (TSC(3813) 730,730, 73) SOT 1830 
Tee TSCC3BID © TSCUIBID - TSCINIS? @oT 100 
@ 10 $3 @or 160 
¢€ Gor 1660 
731 CAML BOTC (TSCC IBID, PSCINOSDD GOT 1670 
IF CABSUTSCC4OS? - DENI) - DiGer 1109) WH, 732 @0101875 
Ts2 Ff 1K - MELD) 82 goToteso 
¢c @oroleg9 
Cc mel £(3) @oT 1830 
Mh IF CTSC(NO9) - D638)? 70,5%,80 GOT 1900 
Fe TSC 1419)+TSC64O9) @or 1910 
TSC(4162=8SC( 381) @or 1920 
eo 10 @ BOT 1930 
001019399 
CEFT, Ke? @oT 190 
GF 1OCN-TSC1409)? B3.5.01 gor 1930 
@3 «TSCe4I4de TSCI3BIF GOT 1960 
TSC (41 72=TSC 1409) @oT 1970 
c OTOISTS 
€ SETUP PT. 2 FOR SECOND INT RP @O) 1980 
WE OTSCENISE © ETSCUWIN) © TSCtHI62 012) GOT 1.590 H 
c por 2000 5 
CML BOTC CISCI41S) ,TSCINIBID @or 2010 
OF CABS TSCOSIGD ~ OCD) - 0660000100) 67,67, 780 @or07015 
WO CALL CGR CISCUWIG) TSCOHITDD soro2020 
TSC(381 TOC) got 2030 
BOT 2040 
SET UP EXIT @0T 2050 
oce B/T=BASIC B/T WITH APHAPI.0 f8* @oT 2060 
S3) CAL SS CISCC3BID? BOT 2070 
= TSCthOs) THC INS) @oT 2080 
c @0T02089 
c TEST WITH MAX FCIID Gor 2090 
CB OF CFOC 155) -TSCCIBIDD 531 OND @o1 2100 
#013709 
USE MAX PCIE? Bor 2110 
S32) TSC1381) = TOCtmS) Gor 2120 
TSC1%O9) © TOC(S6) @or 2130 
@OT 2140 
OT 2150 
@OT 2160 
Gor 21% 
oT 2160 


000s eRBROUTINE BOTC# ecco 
CC SOoPLATE SUDILING 18/T) EVALUATIONS ?® 


€ 
c 

PBROUT INE BOIC (SFC! ABT) eorcoolo 
¢€ eccerQUMR. TO DETERMINE RATIO OF 18/1) ACTUA /REQD. oeces Gorcoceo 
¢ GoTCoose 


2497 — 


LTA eal UaPUT LISTING AUTOFLOW CHART SET - SHELP WING AO CHPLNNAGE POOULE - 


CARD NO ease CONTENTS eees: 
1908 ¢ **°REVISION--04-0B8-69-- ADD LOGIC FOR TSIRIMINI oF (KS TSKIN BoTCOONO 
1909 c oeee 07-27-69 -- NEW SUBR O/T CAC GIMEN IC Borcodso 
1990 ¢ e¢¢ MEOD CONSTANTS SETUP BY SUGAR BOT. °¢¢ BOTCO060 
toa € BoTCo070 
i982 ¢ @0Tc 0030 
1933 COPMION 112060! 012060) ,CD12000) MO 100! @orcoi00 
199% DIMENSION 0011001, TOC12001, TSCIN20? .TSSC1O0? THT t400) TSEC (300), BOTCO120 
1995 (Tete4) @01c0130 
1996 EQUIVALENCE CTOCCUD TCL SMIDT CTSCUTD TeNSed dd CTSSEL) FUIS61dd, = =BOTCOIED 
1997 2SFC, FU13879), CBOOT FLU SSI) CTOTCLY TEVSs 70? @orcol8) 
1998 EQUIVALENCE (0C 81) DCI4OS2s, ISTRAN OF 3719), 1CHSIO,DINBESD, @oTco190 
1999 EISTARO,D(4S61) , (STRSK 06455)? Borcois) 
2000 EQUIVALENCE (TSECHLD COLUSOLED CTT ed) COCIOUI? eoTcoz00 
2001 BoTcoes0 
2002 worce “Oo 
2003 c eee SETUP FCI, EVAL. SS FOR B/T BASIC ¢** oo 
2004 100 SFC*SFCI @OTCGe60 
2003 CAL $S (SFC) @orco270 
2006 @oTcoz80 
2007 c ose TEST FOR STR CONST. ee g0Tcoe90 
2008 IF 4CNSIDI 110,130,110 @OTCo300 
2009 ¢ BOTCOs10 
2010 c eee CAC B/T PHYSICA #8 @oTCose0 
2011 110 ATSK © TBI(3/SFC*TOCC 72) - TRT(2) BOTCO330 
2012 TOTI1) = TSCL20/ATSK @orcr 40 
2013 eorcosso 
201% c eee TEST FOR CONST. -- TBT(4¥) = TCORE FOR HP, 0 FOR STR, PL.** BOICO360 
2015 Ht) IF CtBTiwds 120,129,120 BOTCO370 
2016 @OTC0380 
2017 c 9° CAC B/T ALONADLE -- ALPHA=F CTC, TSK) ** @orco390 
2018 120 APM, © TBTC4I/AISK © OL) BOTCO400 
2019 ALPHA = DESPOAPMLSLAPIL © OCDE ¢ DEL) @OTCONr0 
2020 @80T * BBOTSSORT (A PHA) BoTCON20 
2021 129) RBTE © BBOT/TBTII) BOTCON 30 
2022 @OTCO43) 
2023 eeeeTEST MAGNITUDE OF RATIOS? BOTCON32 
2024 UF tRBTI - 0110) 1290, 1298, 1291 BOTCO+33 
2025 (290 IF (OCIGLD - RBTID 1296, 1298, 1299 BOTCON 
2026 4291 IF (RBTA - OC(601) 1298,1298, 1299 @OTCcow3s 
2027 t2oy RBTI = Ott) BOTCONSS 
2028 ¢ BOTCON39 
2029 1299 GO TO 199 @BOTCONND 
2030 ¢ BOTCO4NSO 
2031 ¢ eeee STR. OETEPMINE MIN STR TOAR. TEST FOR CONSTANT ISTR.¢** ©BOTCONGO 
2032 130) [F (STRSK) 140,110,031 BOTCON 70 
2033 AZ) ATSK © TOC E721 /SFC/( THT 305)/TSC(2)*STRRO ¢ OtLl) sorcoveo 
20% TOTCh) = TSCt2)/ATSK BoTCONS0 
2035 GO 10 129 @0Tc0500 
2036 c @oTc0s10 
2037 c @orcoseo 
2038 c SesEXT Tess RBTI= RATIO OF MLOWIB/T) TO PHYSICA 6/1 ¢* @OTCOS30 
2039 199 RETURN BOTCOHD 
2040 La. 3) @OTc 0550 
Psa] CosecuvessocccecstccersusrecevseceseTECSSeOTACOTSUPECHRSTASTCNUCCSUTORES 
2042 c 
23 c eeceeSUBROUTINE TSCHereee 
BO C = #*°SEARCH LEVEL 3 CONTROL - OPTIMUM TISKIN), AISTRICes 
2045, ¢ 
2046 CossucccaseessceecceersensreSeCEeS SOT OCU DOSE ESSHCCTTSSTUS ESOT CCETANOSES 
2007 ¢ 
28 SUBROUTINE TSCH (SFC) TSCHOOIO 
ane ¢ TScHO011 
2050 c T-SKIN SUBROUTINE TSCHO020 
21 ¢ TSCHOO 30 
2052 c TSCHOOS1 
2053 ¢ #OREVISION 31-29-72 SETUP AN ID COUNT FOR TRACING KHERE STBAR = 1SCHOOI2 
20% ¢ SUBROUTINE HAS BEEN CALL FROM IN THIS SUBROUTINE. 1D TSCHOO33 
ass ¢ 1S PRINTED FROM PRIBK 22 eeTSCHOOTN 
2056 € TScHOOTS. 
2057 ¢ TSCHO110 
2058 c 105K FeSEARCH, 2=TWICONST), S=TSKUINPUT) ISCHO120 
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L Alize! 


Cam wo 


SSS ERE SS | 
a be} = 


71 


Z22372zaz2233 
vwvyaez 


zaaua 


Devt. 


ananananana 


aanna 


tsTING MUTOF LOM CHART SET - SHEEP 
COMErts 
RETIN ID, ISKAO UFC OK, 297 NG, Se LIPLMAXLEC OK 
1SBO FeTBAR NG. 2eAGTIR NG, Set LESS THAN LMIN 
10 FROM STBAMSHL 2. LOK, Be oLMAX, 394 NG, S°ASIR NG 
GIVEN FC, BSTR, SHIN, TW 
COMMON 112060) 0120591 .CO1 2000) .ND1 100) 
COMIN JIPRINTs [P180) 


OPENS 1ON 01100), 
11OC 1200) , TSC 1420), TSS¢ 100), THT (400) , TSEC 13000. 


Omer 4) 


COUIVALEMCE (VOCEED TUT IONED CTSCOLD TOPOL? CTSSth) FCI96IN), 


1COCLED OC SNOT Pd CTMTEID COCLIOII® ,CTSECCI? COUESOID), 


2CDBKP 11) DIS Fed? (STAN Dt 3610), (SHOW DE SIDI? CSTREN.DI3T7II), 


FASTLPN OC 3751) , CSTLPC 003760) , (HSTHN DC 3772), (STFMN.OC SON), 


WICNSID .DU%G1 9). CTKOOIX, TOC (65) ) , CTKKMN, TOC 167.22, (STRSK (455) ), 


S(DOTHR, TSEC (268)) , CBOTER, TSEC C209)) , (BOTHE TSEC (2501), 
GIBOTFC , TSEC 1251 }) , (CORSH, TSEC (2521), 1CCROF TSEC (253)9, 


MING AND COPE POO - 


tscHo280 
TSCHO2ZB1 
TSCHO2B2 
TSCHO2SS 
TscHo2o~ 
TSCHO2US 
TSCH0286, 


TCNOSK .MDIS192, C1SK2S NOCHE) PD, CISKE NOC4S)) CTL .NOCHO)), 11K ,ND( 399), TSCHOZB? 
BILE NDC Pod), CEL], NDC33IF CICS. NDC 320). CIBT NDI722), CIMONDI7Ib, TSCHOZRD 
BLL T1 M6269), CLT] NOC27)) CLT 3. NO(20)1, CISTE.ND(B7)) ,1IN,NDC3O)) §=TSCHOZI9 


ALOT NOC2B9 DC LNDC SDD 


TSCHO290 


eel AM DATA. TSEC( 221,224), THT 1 305,307), TOC CID), IMX, IBT*CROOOION 


OOD = 1K 

lero = 18T 

TSEC(255) © TSECI2211 
TSEC(.S6) © TSECI22%) 
TSEC(257) © TWT1305) 
TSEC (258) = THTI307) 
TSEC1250) ~ TOCtIG4) 


insol = 6 

SETUP FC DATA, ASTRHIN 
TSC(BBLeSFCI 
CML SS (TSCI MBI 
TSC(NOO) ©TDC1379 
Tsciwei) =T0C1 38) 
TSC(NG2) @TOC (NY, 
TSCINOD) =TOCL4S) 
TSCiN10) «TOC CSB) «TSC (NOS! 
BOR = ISC1418) 
BOTTA © TSCINOD) “TSEC 12219 °TSEC (222+ 
THT(312) © GOTR 


¢°SE TUP REGO (8/11 FOR STR FLANGE WO LEBS<* 
GOTHC © (CORSH/TSC 13811999). S3S° TSEC (2D 
GOTFC © (COREE /TSCC BINDS. TE3STSEC (2D 


@eeVEST FOR CRITICA B/Tese 
IF (BOTHR - BOTHC) 5002, 5002 .5004 


$002 If IBOTFC - BOTFR) 5003,5019.5019 
$083 BOTTR © BOTFC 


WT(F12) © BOTFR 
00 10 9008 


00+ GONR = BONE 


TeCsy1e2 = Bone 
1F (BOTFC - BOTFR) 5005 .5006 5008 


9003 BOTTR = BOITC 


Tutt3i2) = GOTFR 


cooSETUP CONTROL DATAS*¢ 


$O0B TSEC(221) © GOIFR/BOTHR 
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crooe 102 
r000103 
cr0001 0% 
r000 105 
cro00108 
cr000107 


cne00187 


B1lh TMPVTE LISTING MTORR OH CHART SET - SHEEP WIIG NO CMY aE POUL - 


CARO ND CONTENTS. eee. 
214 TSMC r2ae) = Odd © WECI22G1- TSECI2221 crooors? 
aus THT 1305) © HSTHRECTSEC(COW) ¢ STERIL C12233 crococoo 
ak FOC CUD) © THIC3OGCSTF td © FSEC L205) cr000201 
a@u33 THTG307) © THTt309) ecroo0202 
2m W tDts) - STAFWI $007.5009.50!19 croocecs 
as ¢€ #942) TYPE Ss CROCOLO 
21% 5007 1B? = MIL? cRr000205 
2137 WetssdeSube - THTCSOSeISECI22L1) 5003.5009.5009 CROOOLLS 
2133 $008 I6T © NDI2) croo0en? 
2139 c e242) AND 2i1} TYPES? cro00-08 
2140 S009 IMK © Pie) cr000209 
2s UF CTWECSIOV - TWTE3O9s eISEC 122198 $019." 919,5011 cro00210 
aise Sons Imex © NOI, croooe II 
2usy THTC307) = THICSIOI/TSEC 221) cCROOD2 12 
ats cnoo0213 
2165 cROOo2I4 
2146 c T-BAR, TIB/T) TSCHON70 
2157 $019 TSC(385) © TOCIF2H/TSCUSAlt 10000190 
2s WSStS7) = CHAITIN 3 TSCHOWIO 
2149 TSCHODOO 
2150 TSCHOS5O 
2151 ¢ eee TEST FOR SIR eee TSCHOGO 
21s2 $029 IT(CNSID) 653,5000,653 TSCHOS 70 
2153 FSCHOS80 
an c oes SIR coe TSCHOS9O 
an $000 IF ¢TSC(385) - 7951571) 500,500,501 TSCHOGOD 
2156 TSCHO0610 
2157 c T@AR LESS THAN TIBOT) EXIT, 10*2.1 TSCHOGCO 
rib: $00 1ScKh> NDI2) TSCHOA 30 
213 Isc = NDI) TSCHOBYO 
2366 1F COMP 119) 1501, t501, 1500 7 TSCHOGS t 
216) 1500 Ik © MDI? TSCHOGN2 
rit. 4 IF ¢1P 633095101 ,5101, 1501 
2163 Stet CAL PRIBK 
21% 150 CONTIN TSCHOG 
2165 @ 10 599 TSOH0650 
2166 teocace” 
2167 c TOT. AREA, MIN STR GLOM. SETUP REGION ID TSCH0650 
2166 S01 TSCA RB2r = WSC12) FSC TSOHO0670 
2169 TSS(43)= TOCLKISN) TScH0690 
217% 155144) =STRMN TSCH0700 
aun TSS045 HS TET TSCHO710 
21% TSS(N Fe TSEC(2220 HSH TAC 220) TSCHOT20 
2173 UF STERN ~ TS5¢479) 640,045 645 cr000301 
Civ.) @e0 TS5647) © STEFAN cr000302 
an OS 155146) = STFPNOTSEC 1223) 000303 
21% TSCHO™O 
a177 c ee TEST FOR STIR 10:0.0 °° TSOO 730 
rik. | WF ¢CNSID) 650,5010,650 TSCHO 760 
an WD WSS(49) © S543 TSECI2I2N TSC 12) TSCHO770 
2180 TSS(49) = TSC(385) - TSS149) TSCH0 70 
2101 TSCe3919 = TSSt43) TsO 700 
@1e2 TScHOs00 
gies c TRS) IS FOR SEARCH, TW, OR TSKCINPUTD TSCHOBI6 
Cit a] OH I tnot2) - 105K) 652,651,652 TSCH082O 
216 c eee GS-1, 652=1NPUT TAK AND SEARCH TSCHO830 
zies $51 1551579 © 155199) TSCHOR4O 
2107 TSS(49) = TSS199) 1scH0850 
zis 2 ssi) = Fsst49) Tscxneso 
2103 TSS(42) © FSS¢49) TscH0870 
aise S549) = Ocr3> TscHoeeo 
2191 i © ei TSCHOGSO 
zim c TscH0e?1 
2193 c SET 10 FOR STBAR TRACE IstB et TSCHOBS2 
21% TscH0e93 
Pit] tStB = wits TSCHOGy 
zs CML STBAR ITSSINSIE T0900 
ais? WO i 1d) 1653, 1653, 1652 750109901 
2190 rene kk = MOLD rscrws02 
z99 OF ¢1P633215103.5103, 1653 
ae0e StG3 CAL PRIEx 


2500 


7117 PUT LISTING MSIL OM CHART SET - SEEF WING AND COPUNUOE FUOULE - 
Cap wo eese Contents eece 
0053 CONTINE TSCHOSO4 
eo 10 999 Tscwonie « 
¢€ Tstnosze 
€ Tecnes 30 
c TECHOENO 
c oeee TEST FOR PL, HP, FOH eee tsces0 
OY WF tD12) - OGIO) OF 656.656 TSCHOsSS 
¢ 00° FOH -- BISTRI = 1.0 ¢¢8 FINA TIBARDCTSK © TIBONDD TSCHOS70 
Gee TES149) © TSC1 IES) TSCHOSBO 
Tee ye) = OCId) TecHOREO 
eo 10 5 TScH! 000 
¢€ TSCHION® 
¢ ee, WP. MD B/T TEST --- SETUP TSKIN ©e Tscwe2e 
O5G  TSSISTE = TSCCRMS) = POC KIDD TSECI2320/ISC12) Tecn1030 
@O To Sot TSCHLON® 
c Tecw16se 
¢ "CCELETK CARDS --275-370 FOR SIRGO SUBR. (4-05-69) ¢¢ TSCHIOGO 
ce TSCHIG7O 
4 ooo eSETUP STR DATA WITH SUGR SIRGO “FIFCCRII)) seco TScH1000 
c eee & = DLS) OR DINSG? °° CHANCED OM 11/13/72 NEXT 31-CARDSTSCHIOBI 
c 006 CHANGING MIM GAGE OF STRINDER TISTRI= FEK*OTSKIND oe Tscui 082 
¢ ese IST TEST 10 SEE TSIR © CONSTANT eee TscH11003 
$010 IF <SIRSK) 700,700,701 18011088 
€ eee SAVE INPUT MIN. STO. GAGE oe Tscni988 
FOl T1132) > STRN TSCHIO87 
ImoO1+ MOLT) Tscn) 008 
c #ee CALC. MEM MIN. STG. GAQE BAGED STRSK AND BULKING CRITICM TSCHIOR 
¢c SKIN eee TSCHI Cee 
TMT (226) = STRSK*'S5($7) TSCHI ORO 
Mavs327) = Dt? Tscn1081 
47 © THTCR2G) -STREN) 702,702,703 TScHIOR2 
Faz Te 11326)> STFON Tscw1003 
@0 TO 700 TSCH LOR 
FOS STRAW © THT 326) rscwi0gs 
THT 0327) © THTC3260/TUT 1325) Tso+1098 
VOT TMTE304) = THT 300) OTT 327) T4097 
TMT1307) >» THT(30707 161327) Tso 088 
OO WH I-1.2 TS HiOsS 
TES (142) © TSSt Lene) oTMT (327) TSCHI110 
TT (16307) © TTI 193079/TWT 1327) TscMitt 
TT (16309) © Tete 13090 /THT C327) TSOHt2 
‘Fee CONTINUE TSCHELIS 
Feo CAL STRGO Te. wtih 
WF COBPC11) 1903, 1503, 1502 TSS 
(see IK © NOI) TeoH 16 
OF € 1P633115105,9105, 1503 { 
S105 CAL PRIBK 
1503 CONTIN 
c oss IF IRGO2 92 STR. DATA HAS UST GLEN MESET EXIT 


37 C1AGO) - MDCIDD 7E8,729 5091 
TL WF (O12)- 105K) $83,600,504 
¢€ SETUP SEARCH -- TEST TYPE beShsh. 4, 203, Be INPUT 
€ 30-3 INPUT TSK=CONSTANT. MO KSK RESTRICTIONS. TEST TSK«@/T) 
$63 «TSS149) “SON 
W ATSS(S71- TSS(4S1) 6 601,500 


c 
¢ TK THE OR INPUT TSK=CONS TANT 
GOL TSSiN 1d -TSSi49) 
THEN] TSS 149) 
FSS (NO) 0013) 
@ 10 Sis 
€ 
¢€ GEVISION (1-28-72 RELOCATED THE MEXT 2 CAP25 FROM IN FRONT OF 
c STATOVENT 6@1 TO BEHIND THE GO TO Sis CARD 
€ CSMIMOTBAR LE. TW OLE. KSOTER 
if 
O88 = TSSIS7-1S8199) 
TSS 168) -TS5199) 
€ 
¢€ @PT SEACH FOR TSK -- 1D-1 


BO TSSt42) © TSC CIS TOK 
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O71 


CahD NO 


ae7e 
2273 
am 
2a 
an 
27? 


INPUT LESTING 


sis 


se? 


MITOFLOW CHART SET - SHEEP 
CONTENTS 


TSSiet) © TSC13ESIS TOON 

iF 11SS(41)-Ss0N? 506,507,507 
TSSIS11 = SKIN 

WF CTSSt4Ld- 1891571) 506.509.509 
TSSist) © TSS(57) 

TSS¢t49) © TSSI4I) 

TESS) © TSS182)-1SS141) 

(F tTSS¢487) 500,514,514 


SIART SEARCH TSSINSI© TSKIO) 
the benDUn? 
MT IN FOR STBAR TRACE iste e 2 
1ST@ = wie) 
CALL STBAR (1551491) 
1ski © NDI2) 


WF CIL2-NOt31) 5430,516.515 
HF C1L2-NOI2)) 513,517,513 


TSKO OK SET UP 10. SIS=L LESSTHAN LMAX ID*1, SIP*LI=LMAX [093 
USKieNDCED 


@ 10 518 


LU LESS THAN LAIN, ID=3 


(92 ond 3) 
@ 10 999 
BTR 300 SHAL, IDe4 
ise O12) 
@o To 5e9 
10-2. LeLmax 
ISK LeND(3) 
TEST FOR CONDITION OF SEARCH EPS= 1 PER CENT SI@-OELTA TSKO, 
SIMLMIN, S20-THO PID, S2IHMIN, S22<ASTAHIN 


IF CTSS(44) OI31-TSS(h2)) $19,599,999 
1F ¢STLMN°O(31) - TSC(397)) 520.599.9599 
MO TEST ON T(RIS HEB) 
WF (TSS(46) D131) - TSC(39S)) S22,999.599 
W ATSCCIIND M31) - TSC1392)) 3286, 599.599 
OK, SEARCH «SAVE -TSKO.11 DATA AND SETUP [0 TEST SLOPE 
00 $27 I=1,30 
TSC 15 +290)" TSC 1'¢ 382) 
TSS(168) eTSC¢1¢382) 
WSK1°NDC ID 
1S$150)+TSC¢ 383) 
TSC OTL PTSS(49) 00 34) TSS (4B) 
SET IO FOR =STBAR TRACE sta - 3 
1STS © NDC3) 
CML STBAR CTSCONLITD 
WF (nOC2) - 1L2) $23,525,525 
TSK2 NO, USE TSKO 
OO S24 1-1 ,30 
TSCiLeIB2) eTSSi1+ 6B) 
@0 To 399 
TEST SLOPE OF SUM TBARS 
IF (TSC ¢383)-155(50) 1530523, 523 
TRAR2 LESS THAN TBARO, SEARCH TSKD TO TSX 
TSSt2= T$S¢50) 
THSISD= TSS(49? 
TSSSi de TSS(4Gr OC 33? 
TSS(S2h— TSS¢42) 
43 onDII) 
uti = wt 
fe « mts 
ATs © O07) 
TSSiGse FSS(Sie TSS151) 
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MING AND CHPENUCE MODULE - 


TSCHI270 
TsCwiZ80 
TSCHI290 
TSCH1300 
TSCHI3I0 
TSCHI 320 
TSCHI330 
TSCHIO 
TSCHI SSO 
TSCHt 360 
TSCHi 370 
TSCHI 380 
TSCHI 381 
TSCHI 382 
TSCHI 383 
TSCHI 384 
TSCHI390 
TSCHI4OO 
TSCHI410 
TSCHIN2D 
TSCHI430 
TSCHIN4O 
TSCHI4SO 
TSC4146O 
TSCHI4 70 
TSCHI48O 
TSCHINAO 
TSCH1500 
TSCHIS10 
TSCHISZ20 
TSCH1S30 
TSCHIO 
TSCH1550 
TSCHIS60 
TSCHIS70 
TSCHIS@O 
TSCHIS90 
TSCHI600 
TSCHIGIO 
TSCHIG20 
TSCHIG3O 
TSCHIE*O 
TSCH1650 
TSCH1660 
TSCHIG? » 
TSCHIE 0 
TSCH1 700 
TSCHI7I0 
TSCHIT7NE 
TSCHITI2 
Tani 713 
TSCHITIY 
TSCHI 720 
TSCHI 730 
TSCHINO 
TSCH1 750 
T9CH1 760 
TSH! 790 
TSCHI 790 
TSCHI800 
TSCHISIO 
TecH1620 
TSCH1830 
TSCHiONO 
TSCHIES0 
TSCHISSO 
TecH1870 
TSCH1080 
TsO11090 
TECHISC0 
TSCHIBIO 


; 


OB711s% VOUT LISTING @JTOFLOM Ch: 1 SET - GAEEP WING MO CPPEMOUCE MODULE - 

camo WO soue CONTENTS, ove 
23 ¢ SET ID FOR STBAR TRACE Isles s recone 
24 € Pecmisie 
an 1ST® © NON) PaCHIStS 
a6 CAL STBAR CTSSI6)) Tecniere 
an? tf ANDi2) ~ 1L2) $31,532,532 FECHIOI8 
are ¢c 13 100 LAROE, THAX=T3 TECHIES 
ane S31 TSScS2) © 18816) Tec 98e 
e750 TSS1G) © TSS1G) - DL9S9TSS¢51) TSCHI 960 
es Tecni97 
22 SET ID FOR STBAR TRACE iste eS TSCHIe71 
gm ¢c Tequete 
2 {S18 = NOCS) TECHIOTS 
ays CALL STB (TSS16)) TsCH19e 
2% WH UNDIA) - IL2) 533.509, 9 Techn) 908 
37 ¢€ TaCHI 987 
axe ¢ S°fND SEARCH ON TEST WITH D13292.06 V5 PII3-2)/0ELITI** «TSCHISDe 
C2 | ¢c CEL CTPA TSS(4O@ IC TSK - THON DI S3I¢ TSCHI998 
2360 B33 IF CUTSSIG) - TSS(5)I/TSSIN@) - 06379) 535,535,531 TSCHeOCO 
21 c Tec@ois 
ewe ¢ RESET 12 DATA AS OPT Ne3t Tscwrore 
233 SH NeLl2 TSCHEO3O 
am HS 00 $38 11,30 TSC Ne 
235 fees S oheND IIS) TSCHEOSO 
236 S3B TSCCLe382)-TSCIIND Ts0@060 
ays? @O To 599 TSCHPOeO 
ems c T3 OX, SAVE TSCHEORO 
awe S32 00 537 191,30 Tee 100 
2370 B37 TSCcle320)= TSC11+3ae) TecHet10 
2371 TSS(3) © 1501383) TSO@ av 
2372 WF CTSS(3)-TSS(21) $38,595 TSCH2140 
2373 ¢c MOVE 2,3 10 1.2 TSCHE ISO 
23™ $38 WELT! TSCHEIGO 
235 uTiate Ts0@170 
23% Lreur3 TsO@ 180 
a377 LT3 oN Teche 190 
23 00 WO I1,2 Tecnezee 
a7 TSS¢LdeTSsclond TScHe210 
230 MO MeScpeBr~= WSihews yecvez20 
2301 W3*IL SHOULD TacHeeso 
2362 TSS(Gh= TSSiS)oTSSiSi) Tsoe@250 
2383 c Techeeso 
(2 4) c SET 10 FOR STAR TRACE Ista = 6 TSCHE26! 
2395 Tecna2s2 
236 IST® © NOI6) Techa2s3 
a7 CALL STBAR (TSS(6)) TscHe270 
238 IF CIL2 - MOIS) 944 .531,531 TScHe2e0 
ewe Wi 00 $39 t=1,30 Tschereo 
2790 IN? 1 ¢L T3¢00t18) TSCHE300 
2381 B39 TSCCINI-TSCIl +382) Tecresi0 
exe TSS(3) © TSC13BS) TSR 320 
e393 c Tecnes3s 
amy c eee TEST OFF OF T-BaRseee rece 338 
aw TSS195) = TSS$12) - 1SS$13) TOO IO 
awe IF (TS$¢55)1) 950,950 ,H2 TeCHe P| 
aw Pr2 UF (OCSed O10) - 1SS$1551) W207. HT TONS 
ane P20 UF (TSS6IS) - DLO) W221 HEN noens : 
wwe WA TSSIGS) = CTSSC2) ~ TSSe1)d/TSS1559 Teoews0 
eo 1F (795695) - DEtOD) Wl2,%50,560 TSO 731 
m1 Dez IF (OZ) - 1SS(551) Se2e 7.7 Tsce Se 
Oeae Wee IF TILE - NDI10)) $38,426 S28 TecHa ses 
eel WPS T8616) > TSS152) Toe ms 
an @o To SH recne 387 
ne c Tee 8 
es ¢ SAME 13 DATA Troe 
ae? PB 00 HS 121,30 roes” 
wee Wel T3018) TeCHe ES 
moe PO TEC IM TECi lees Tepes 
ae TSS13) 078013831 Teceeie 
™i TORISRd~ CTSSCB? © PSSCS200 DIZ) Teoeuee 
ie ¢c 13 16 OK, Tiet2 TOCHEN 30 
ai OP TSSCiretssr2t reoewe 
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Bien 


CMD © 


WUT LISTING 


wm 


30 


67 


CONTENTS, 


TEEN oTSS1S2 
Le SE 

atiate 

Teen 

TESIS) © CTSSENS © TESISD I DI2) 


$1 10 FOR STBAR TRACE 878° 7 


1818 = 1179 
CAL STRAR 1158159) 

Wh = OOF) 83. WS HS 
TSS(2i= TSC. 53) 
OO Dr t-1.98 

Se Lok T2eNDC IO) 
TSCUINeTSCtle 3822 

TO inTcRP. NOt 
@0 10 368 

T2 (S mG TEST I WITH S 
Well 

OF CTSS632-TSSCED) S07, 67, Se 
VSE 13 DATA 
wets 
@O 10 HS 


INTERPOLATE FOR FIRST MIN 
Ike MOUND 
CAL COW cTSSt4),TSSC10) 
WF IL = e129) 951,570,560 
et, CET, west Th 
WF 61SS¢%)-TSS0%9) 1562 552, 53 
WF CTSSC02-TSS12)) 5,535.595 
wu 2103, 1 102 
TSS(3)°TSSI2) 
TSS(2.-TSSit 
VSS(6127SS¢5) 
TESS TSS C4) 
mets 
Ltd t2 
tae 
Ltiew 
4F CTSS(4) - TS5t49) - OLO¥2) 562,952.5530 
WSSt4) © TSSIS) - OCT ecTsscey - Tss159) 
WF CTSSi42 - TSS1997) 9,98 
TSSi4d> TSSiNe> 
TSS(ibe TSS(se@) 
00 956 [1,30 
Tee ToL THD Ie) 
TSCLIND T8511 68) 
@0 To 0 
TSS) = CTSSISD © TSSi49r DIZ? 


SE1 10 FOR STRAR TRACE iste -@ 


1STB © note) 

CAL STBAR (TSS(4I) 

IF (8L2 - WOC3I) 957,59 Sy 
00 KO 11.0 

10 ToL TS eND: 18) 

TSC HAND oTSCOLe Ree) 

TSSi1) © TSCrIB3) 

@ 10 0 


Wed, RICHT 
I CTSS1G)-TSS0529) 361 987,507 
ett rorz,etT 3 
OO S62 f-).2 
FRSIT) © TSSelond 
TWHelesre TSsilend 
omar 
atiatz 
Liars 
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MSTOTL OM CHART SLT - SEP 


WING AD EMPLIOACE MORAL - 


THEE 


THLE 


TL 


PES ECCS POSES OPEC REREEE 


PUT CIStTeG 


cacrons 


TSSISTOTSSIS9-TSS19) 

WH ATSSiG) - 15.1520) She See S63 

4€ eTSS1S2) - 15915) - DIGer) 568.568, 5630 
T9StS1 = TSS¢920 


ST 10 FOR STB TRE sme > 8 


1STe = DS) 

CAL SIBAR LISS(OHD 

we CMR - M130) 965.587, 557 
TSSe3i= WSC ws? 

00 905 191,38 

Bee bot 13 -nC 18 
TSCaleen=TSCele wee’ 

@ to 0 


TSS(S2) © 1395(6) 

WF CTSSis) - TSSiz2) - O10) D110)) $3.95, 
FOSS) = THESIS) - C1SSCS) - TSS(S22 Oty? 

eo to 983 


OF CT8S019-1981209945,.535,595 


FIRST MINIM FOND, ID = 2 


TSStS3) © MCN? 

WEST Teen wate TELS 

WF CTSS149-TSS(53)) SOO. eS SS 
WF CTSS(53)-15S16) 15708 97. eT 


SET 10 FUR STO TRACE (sTD - 16 


tSTB © 6150) 

CAL STBAR 1 155153)) 

mes - U2) $71.58,58 
19S (2)-1960131572. 572,975 
6TSS130-1951201573.573.9% 
CTSS13) -TSS150) 1907.7, 523 
C1952) -198150) 535,835,523 
C9960) -1953)1S7S.973.573 
CFSB C5) -155150) 09VS,5 77,523 
CTSS(4) -TSSC0O) SPS S23. eS 


ZPEypggcggs 


Te OK, SAVE DATA 
00S 191.30 
FSCCleWSO) © TSctio MEP? 
TESiPere TSC IBS? 
W CTSs¢se) - TSS12)15RS. 508.55 
W CFSSt93) - 19515) 25m 588. 90y 
TSSt3)~ TSSi2) 
TESiGr~ TIS) 
Le SP 
areci2 
tan 
Taet2) TSS) 
TAtS) oTSS(S32 
@o 70 987 


TEBcsre Tesi2) 
Fesrvie Tesist 
Le bd 

Atrate 

oo ve oF 


FoR Mm SEAT nen eee 

WES! Teen 20 Tee 

OF eTSsiS3e - 9550) 888.571 OOD 

ENT THT DATA TO 11.L0C, 12 DATA Te MH LOC 
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AST Catt ET - SEP 1M AO CPTIOUOE MODULE - 


Teogie 
Node 
OG Ie 


(PUT LISTING 


383 


aanana 


CONTENTS 


TSSt be SSN) 
TSSi4 re $5153) 
eet) 

0 To 383 

WOME THI DATA TO TS LOC, f2 OATA 10 Tr LOC 
TSSc So TSSid 
TSS16)°TSS653) 
Ltd 

©O 503) f1.80 
IeNe 1oNDE 18) 
TSCCIND@TSCC 1+ 3509 
HOME 12 DATA TO TH 
OO 5832 1¢1,30 

Urea T2e TeND 1G) 
TSCCDS3SODSTSC EINE 
TSS¢(S3)°7SS¢5) 
TSS( Ie TSS12) 

@0 to 390 

00 560 1-1,30 

E> LonenD 1 18) 
TSCCIND =TSCL19 350) 


INTERPOL ATE FOR MIN 2 
tmenDit? 

CAL COW 61954), TSSti 
weoity 

16 C1L - M20) 5900 ,593,5001 
Metts 

00 5902 1-1,30 

memo fo Olle) 
TSCCIND © TSCt1¢350) 
CONT INE 

@o 10 $71 


% se2 11,30 
WSC (be 3B2)=1SC( 19950) 


oTEST MIM MITH PTI1,2,310¢ 
if CISCO 3B) - TSS010) 9080,5985.571 
16 CTSC(3B3) - TSSC2)) 9901 ,5983.572 
IF ¢1SC1383) - TS6C3>) 999,5982,573 
If (TSS(6) - TSCOME ED) $98,509,07 
BF CTSCUSBS) - TSSC30) SORT. 
WF CTSS05) - TSCCWLED) 999,999,535 
W ITSC1383) - TSS620) 9986 ,9983,S72 
IF (TSC1283) - TSS¢39) 9987,9982,573 
IF CTSSt%) - TSCINN11) $99,599,545 


ST 10 FOR STBAR TRACE iste « i 


iste = NOUN) 

CML STBAR 1 TOCIN?? 4b 

TSS(3) © TOCIN?? 

WCHL - NOIId) SDs 991,591 

W CTSStS) - TSCC3B3)) 901,995,588 
1F (7S9¢53) - TSCONLEDE 598,598,591 


SETUP CIT 

WF (ISK - MOt2)9 997.9990.5990 

OF (TSC1307) - STLPKD 9990,998 598 
Isxie mI} 


CoORESET SANED Dalacce 
ee CHANOED NEXT @ CARNDS 11/13/72 
ce REMT STR MIN GA OD O/T FOR MIN GADE oes 
If (O10) 705.705.9981 
I «RG! .£0. 8 + @0 To 9881 
IROOt© MOI2? 
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SUTOFLOW COURT SET - SHECP 


WINL AND CPPENUCE MOOULE - 


eevee 


TSCHS7IO 
TSCH3720 
1SCH3730 
TSCHI MO 
TSCH37SO 
TSCHI 760 
TSCH3770 
TSCH3780 


r01903) 
TeOw 171 
Teche 1 72 
Teco: 73 


TECH 


DPT LISTING 


WW cteT1325)-STAred) 706.706.5981 


708 STR © T1325) 


WTC SRT © WT 3251 TTS) 
@0 10 77 


c 


tet © 1870 

Vatcreeid © 1SEC125) 
TSEC(2M) + TSCC1256) 
TuT(30S!) © 18001257) 
TT (307) © "SECI296) 
TOCtI@) = ISEct2se) 


MUTOF! Cha CHAAT SCT - SREP 


MIND AO CHPLIOGE MODUL ~- 


Cucvesosr-suvsccstsseesccccscceves. seseveevessceccuseeusesuseeuusenssese 


¢ 
c 
c 
c 


000 6QUBROUTINE STBARSCoee 


oceT~BAR EVALUATION FOR TOTA COVER/SUPT STRUCTURES *C* 


Cucuccececccucceserceceuuccucsesceescestusussseusccesctcoucucusacecseese 


¢ 


aoaonnnananananannaneaa 


107 


SUBROUTINE STBAR (STI) 
SUM TBAR SBR -- 


SORE VISION -08-20-72--AEVISE SAM DATA. SAVE B/TIH,Fieee 


81800010 
STeso020 
sTeseo%e 
08900016 


eee REVISION --C°-10-68-- ADD FOH, LWR COVER CESION FOR SIR,PL .HPSTOADONO 


eee REVISION -- 06-03-68 -- PLATES AND WE ere 
REVISION -- 01-10-@6 -- NEM FORMAT, NEW LINKADES. 


LIME TO STAG, STRIL, STRIO 


(Put IL, Ie COMPLETE, 2» 00 TRIB 


GUTPUT IPO. = 1eTSK OK, 2eLsLMAK, Se LNG, Se GTR ND. 


COPPION 1120601 012080) ,CO‘2000) ,NO1 100) 


OPENS 10N Oc«180), 
SFOS 1200) , TSC 420), FSS1 100) , SECC 390), THT I4OO) 


EQUIVALENCE (TOCEL) TAU Pert CTSCUSD PCPS d) A TSSCUD TEI SSEDD 


EQUIVALENCE (TWEET) COCIION) ,CTSECUN) COLISOETD 
COUIVALENCE (OCC1) OC 14G11), (STAFN,.OC 3811), CSTLON,DI 37S), 
ACSTLPB 04 3751), CTRVT 06 9977), (ORVT DC 39B)), (CNG IO.O14S1)), 
TIGOTHE ,TSEC(250)), (BOTFC TSECI251)), 

BIOTEC .De4G2)) , (OCRHO 0614631), (OBRHO.014O01) 

QUI VALENCE (1706, MOC 351) CTL NDC Hd) 1D STD 


THINS STH 
MF CIL = MOIZ)) 105,989,105 


DO) 
CaL STRO 
WF (ieee - 62d) 107,910,107 


CO COLIN LINOTH 
CaL StRiL 

SAME VIBAR), TEST LENOTH IL) 
TH INGER] TENET) 


eoe TEST FOR PLATESAC 
W (Bid - O11)? 1070.08.99 
tO © 3? 
Tecrei6) = TeCC WET STUIN 
TEC(NOS) © TEC18I6r 
OF tOTLewe - TECCIO7D Her 168. 
WO - wrE? 


W CSTL eat - TECIPB7? 100,108,135 
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STBA00S0 
STeaseso 
1800070 
STascoso 
Syessoso 
sTB40100 
STBADIIO 
sTeacizo 
STBASINO 
STBA0150 
sTesoleo 
S$7040170 
sTB40160 
‘S7BA8190 


rn 


P2RIIRRITATITTIVTIVIZIPIP2RIPTGIRAIRTIRTITaIaaR aa 


bevtte 


anna 


1. 


stim MSTOL GH COURT SET - SLEEP 


TSCeW7 = STL eK 
(mO © wiI2t 
Tw RIB DATA 
@0 To 13: 
eco TEST FOR FON eee 
W tS) - CMBID) 130,130,039 
eco OM ee -- TOARR 
WSC13MB) » ESET C2270 ¢T0C1 73 
TSC1 790) © OCS) 
TSccvee) = TSC0 3B? 
TEC(NO3> © TSCC BIE 
TECiee7s © Ort? 
TSC13B7) = OCIS) 
TSC1388) = OC13) 
TSC1 388) = OCES) 
TSC19B3) © TSC1WRS) © TSCUBES) © ISCI3B7) 
@0 to 118 


© PRARICORL) 


STR, PL, WP TEST FOR UPRALLR COUR 
1SC¢386) = TOC1e9) 
TSC1389) © TOCIS2? 
T9C4390) = TOC(93) 


TSCt3B4) = OCB) 


Cat SIRIO 


000°70A51 TiBAR RIB) ere 


TSC1 39) © TSC1389) "TSECI233) 


TSCC3BO) = TSCC9IN OTSECI 233) 
TSCC3BG) © TSC13BGIOTSCC(233) 


COOSANE FIL) IM ER(RIB?, B/TIM(REGD)) IN RICORR), 


O/TEFCREGD)) IN FC ORIOD 
TSC IHG) © TSCINSS! 
TSCt4O7) © BOTHC 
T9C(4O3) = BOTFC 


nN Tie 
TSC( 3a) © OCI) 


SEP MISS &K MO STR ATT. 
W USTAFH - OF)? 98,98,101 
FSC (42036 Di27) 
OF CVSC(3B) - TSCIN20)) 97.87.98 
TSCtN201 © TSCCIH) 
TSCIMBT = TSC CUP) OTSC(20) TSF (2) DI28? 
Tec«gae) = OC13) 
@ TO 1% 
Tart -- 75m. -- 
TSC( WSO) © TECCNLAD © D123) °Ot231DI 38) 
TSC 38S) © TSC C388) ORVI 0128) ORVI/TSCI2) 
msc. we. 

TSc13B7) = OCis) 
TSC(NZ8) © O12) - OLD 
WF CTSCtN2022 1038, 1030,103: 
TECtN20) = OLE MCLE 
TECENZ20D © TEC CNSOPOTSC CNET? 
& ctrvt> 103,163,102 
USCC IST) © 1TSC1 RG) oO 381 e TSC CPR TSC (N2OI/TICI2D 
@ TO tm 

Devt t 
TS tee) © TVET - TSCISEED 
OF CTECIH2O2? 1Oe, 10,183 


WIMG 2D COPEL MOODLE - 


STBANSO 
sresos0e 
sTesosie 


STBA0700 
STBADTIO 
stBs07¢0 
STBADT30 
STBAOMO 
sTaA0rO 
STBA070 
STBA0770 
S18A0780 
STBAO TRO 
‘STBADBOO 
ST800810 
sTesnez0 
09000168 
2000160 
STBADO 
0000171 
9000172 
8000178 
sTea0g30 
StBa0esO 
sreso870 
2000169 
s$Tes0ee0 
stesne80 
STBADB00 
STes0si0 
STBAORZS 
stesoeso 
Sresome 
sTesogso 
sveacsec 
‘STBA0870 
STBANBES 
sTeceeeo 
BTBAI OCR 
sTeaiels 
steal cee 
STBAIO30 
SteAlNe 
STBAI OSE 
STBA! OSE 
STBAICTS 
STBA) C80 
STBAIONO 
STBAI100 


TSC CRBS) = TSCURRS) © TSC We © THC CRS) © FSCINE7) © PSCC WEB) © STBALIIC 


1Teceaee) ¢ 1900380) 
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STBALIZe 
STBAII30 
STBAI INO 


rut LISTING MUTOLON OURT SIT - SETP MING MO CHPEMUL MOAT - 


€ 


ecco CONTENTS: 
VEST CONST. FOR FLATTS. MC, STR. 
Wf tOCbh = COBlIOF 620,018,110 
coe OP. CORE > THSKISIR§ «FSC 1387), BOND= PPG FR1G3 TSC 1396) 

120 TSC1387) © TeEC227e ¢ TSC13ST 

T8C63902 = PRECI2201 ¢ 1561390) 

FOCI ERs © MECUIGI) © TSECI2eB) © TECIz27) 

ext 
110 ETURN 

oo 


¢c 
c 
c 
c 


oss eQUBROUTINE STAG" 
C2eOPTIPEH SIRIMKER MATL DIST - GEOMLIRY EVAUATION®** 


STBAIISO 
STOAIIGO 
$t8a1170 
$7801 160 
Seal 199 
STBAI200 
Siea2zio 
steaizce 
Staai230 
STBale 
SsTeAIZ50 


Cusevssescccseusocecuseaseunseccceescocsssesececcuearectecseucsacucucess 


c 


annanannannnannanannnnnannnnnannnnnnnnnnannannnnana 


SUBROUTINE STRG 
STRINGER GLOMETRY SUBROUTINE 


REVISION- -15-30-7e- ADD SOLUTION “QUATION [0 NO-STATEMENT NO. see 


STRGOOIS 
STRGOO?O 
$TRG0030 
Staceos9 


02 REVISION -05-14- 70--ADD OC TAIL SECTION SEARCH PRINT. ID9-0157e)-SINGSOND 
0 ORE VISION--11-13-69--COVLCT KISTRI LOGIC. B-D1455! ,b 2D 1456) * ST RGOISO 


00 ORL V1 310-00 -05-C9--MEVISE T6STR) MIN LOGIC FUtuK? eee 
oo REVISION -- @7- 10-68 -- ADD FDH **¢ 
REVISION--05-17-68-- TOP FIX FOR PLATES (METHOD A) 
1O-O1461P-CNSID. NO PAD AT SPAR LINE, CONSTANT CAP ARLA 


eeeISTRG MO TYPE MEGION 1-SIR = H-SIR aR FARR 
(0 z,z2 4.3 or or ot orl 
(2) zi. 6.3 ort OPT Ww AX 
(3) t23 m.z2 (1,3 ot max wi or 
te) bie zz 1.3 wi or MIN ot 
(3) 123 RB 3 or max wie or 
Ss Pd) 1.3 FRAT Tevt 6 Fra 
te n 1.3 MeT (fA e vrst 
tae 2.22 3,3) PRUesT fe Fin rnin 
a” LF) 2 1.3 Fer Tout Fran FAX 
av 127 eR 1.3 eam rw na verst 
ont Zi. 8.3) Nees tet rin nim 
te a 2.3 WG nin 6 L-0 
iT a] age 2.3 Ts min —~ Tu 
16 zm. 2.3 TS nin me Lu 
tes z.% 2,3 reo kL WA Lal 
3 aL AL °oSTR AEA 100 RL? 
ns aL al no mn iid Pll] 
100 21.2 3.2.3 AML WAX man Lal 
167 2.72 1.2.3 ae ame anne ane 
o ' 1.3 wi rr e e 
ti] ' (2.3 am mx e e 
td t 12.3 oO ast e e 


GEVISION -- @1-10-66 -- MEM FORMAT, MEW LC IMCAGE 
T SKIN © VARIAMLE, FCCOGTAT 

tet ox 

eee 


COremye 12060) 012068) COI 2000! .NOC100) 
Compton s1PRINTs 1P160) 


Onwa ion Ocr18e, 
AVC 6 20S) . TSC 1420) TSS C600), THT CNOOt TSEC 13001, 
CORP is 


Deh Ws oma SEEIES Iie, SEP Pt CP, a) 
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STA0OIG0 
sTAcoo70 
SITRGOGIO 
‘StAGODSO 


‘STRG0035, 
SIACOOIS 
SIRGOOS? 
SIRGOOTS 
STACOOTS 
STAGe100 
STRGOIGL 
sTacoio2 
strago163 
STRGOID 
STAGOICS 
STRGOIOS 
$TRG0167 
STRGO108 
‘S1RCO109 
stTacelis 
sTmcettt 
symoeii2 
STacoiis 
SITS 
STRGe1IS 
sTaseiis 
sTmceli? 
SsTADS1ID 


simceize 
smell 
STRDeINe 
srmoeise 


sraperie 
sracenze 
sTace233 
sraceme 
sreoerse 
STACOZES 


L laa! IPT LISTING MUTOLON CART SET - SEP MING AD CHPENGE MODULE - 


CAO 10 oes contents, eats 
eee CQUIVALENCE 10061) D6 1900), 1S TAFN,O1 3G. 1 ISTRPNOFSTEDD, STRGOZ7O 
a D005 Tre, OC S770, CoS TH O13 IBID. AS TEP OCS 92, (STF PELLOC Bede, siaco274 
‘BBN2 21S TRAD .DINS517, ASTRSK .OCWSS) ,1CNSID DIvGI07, SIRGO2 Te 
wa BDH cd OSA STAaGG273 
awe EQUIVALENCE CTTCd) COVDIGE1d A TSECHND COI ISOI9) StRGOZeO 
aes COT VALENCE CUNO F500 C1BT NDE Rd) C1 METI DD CIR WDI7ONS, «= STRGOLSO 
ane 101K ee 39rF STAG0291 
awn? 2. « CISTAG NOOB) stmooze2 
awe STAGO330 
aes CCoPRINT FISK), AGTRMIN DATA. [Ke2. BLOCK 2 o¢ STRGO MO 
2050 SO IF 11P133)051 9% .60 
red] 3 im = m2) STROO 30 
ew CAL PRIOK ST8G0370 
ws) $1RG0380 
2% STAGO390 
205 c @OCCSANE BASIC STR DATA, STR ONLY. 1RGO-| SETUP, 2-RESET Coe STRGOVO0 
ase e If (tOGID) %,61.7 STAOOVIO 
oe57 ¢c OOCSETUP EXIT 30 b=OK, 2enGere SIAGONZ20 
awe 7S tee) STROOV30 
ae TSC C413 -OC 13? STRGOW4O 
ease TSCiwied © OCt3) STROONSO 
asl STRCOWGO 
aee2 *oevEST FOR MOCK 3 PRINT. [xe3 eoe STAGON 70 
a0} 1 cP 330052.52, 71 
Ca) 2 m= wy) STROOWSO 
Fe] CAL pRTeK STRGOS00 
5 ¢ ‘STROOSIO 
a8? ¢c sTRGOs20 
ee GK, *GIR STRGOS30 
eae Ti TSCA re TSCI2dSTSCUNESD SIRGOMO 
an VSC¢¥O2I© TSCIIB2I-TSCINI2) vr AO 
an TSC( 387) 9OC(3) svar) 
BR ¢ STAL0570 
a7 c eee TEST FOR PLATES--TEI® ere stTm00360 
an iF (O01) - O6ID) WO, 320.39 SsTACON»O 
an ¢ eee TEST FOR FON -- TRARIS TRI -TRAR(ERO! STRGOSOO 
an FRO IF SCNSIO - B12)? F22,R2,R3 STROOS10 
an Fe2 TSC(393) = TSCi 2D ISCI2: staces20 
an  ¢tSC¢3e21) 71,71. STRG0S30 
an FRi TSCC¥B2) © TSSIN3)°TSECI232) STRGOB*O 
een TSC(3O3) © PSCC PMPs TSCI2) stRooeso 
08 0 10 % sTRoossO 
ause ¢ STROCS 70 
oma} Ree WF IISc See) LRA STAC0BSO 
ER c SET aGTR6, ieee, EXIT sTmG0690 
as Fe TSCI PSR CCL STRGO 700 
e258 73 leeeDi2) STROO7I6 
tld ISTAR = 73 sraco7it 
Ba @ To 98 Stace 720 
Bae STR00730 
Cail ¢€ SETUP DAT. -- R, T-BARISTRI STROOTHO 
mal Pe TSCENIG© TSCCIRZN/TSCAIB? sTRoe7S0 
bed TEC(IBB© TCC MERI/TSCI2) sTmo0 760 
ae ¢ TEST FOR Win STR00770 
BH W CTSCCWBII- 1SCC RIS) BOL) =. T3 sTRo0 780 
ae ¢c Sraco7ee 
Es) € stTapeseo 
a7 FH WF CTS CIRRD - TBI l 001) 7S. 7.08 sTacoaio 
oes c VEE AGTRIMIN? PROPERTIES STacesze 
Eo] % 00 T7 ir1.8 SrRooe 30 
anee TECU Le WIe THS1loed) sTRoeero 
ae v7) CONT IME sTasesso 
eng Istma ¢ stmpessi 
on83 0 TO # Srmoseso 
2 € STanee70 
as c o00 FU eee greoses0 
aus Wa TSC Pei) © TEECI2Ze8r Or2) sTacesso 
ane? TEC1 388) © TSC1IBI? sTRoeRCS 
anes PeCevest © TeC6 3B)? sTnoesi0 
a TOCCWPe) © PSCC PRED errocarc: 
ane TOCIMBS) © TSCISS) o TSCi DEP sTmsosse 
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mi an 


Ble 


CAD WO 


rll 


EE CECEEECEEOS COC SP OSSCCCOCCCOEOOSCESES ES 


UNANT LISTING ATOFLOM CHART SET - BECP 


et 


COMTENTS 


COMPUTE SIR CECT TRY 
TSCLFRte STAN 
TSC1 998) @OC13) 
TTI 301) © TSCI3R2I ETFO 
WUSTRFN - Of1. 61,390.90 
'-S1R TEST REGION 
1F Ines >)- 1G? 62,064.83 
OAGION 3 -- COMPUTE HAT IMIN, (O/T) 
TSCCPRS) © WSCC WI CTSC INI? 
IF CTSCCBMHDOTSCEIGSI- WSC13921) 83.67.07 
REGION 1.30 A 1B/T) 
ISCO39S) SSORT 1TSCLIG2ITSCH4IO) 
IStAG © OS 
IF (HSTrOC - 1SC63995)) 65.05.06 
REGION 2 TEST AMAKIO) 
16 (TTC 304)-TSC139202 O5.05,67 
beet HA 
TSC139S) © HST 
ISTAG = 85 
Ts Ash 
TSC(FHede 19C09921/7TSC 1395) 
eo To 8 
TeTMG, Meat 
TSCUIGS) © TSCCIB2I/TSCLIM) 
15:86 © O7 
co to 


20,2) TYPE TES? REGION 
IF (NOt2)- 1G) 91,100.92 


MEQION 3 TEST WITH amINt2? 
IF (TMTE3E37-TSC( 3920) B2,107,130 


REGION 1,3 --T MOT MO. 208d, 242) 
TEST WhTH PAX TiB/T) 
IF (TSCA 9G2)-TWIC317*? 93,100,100 


ACT) LESS THAN AA 
TEST FOR TYPE 
OF CSTAFN - 011019, 120 


Zi) TYPE - TEST FOR MAX POINT. 
WF CMD) - DP 9B.810,010 


Weee2  PMAXCO/T OF CHAK) 
COMPUTE AREA AT fF of MAX 

TSC( Wed © STFRK/TWTISI2) 

Teh ITS) © TSCiNIONeTSCISO+) 

TSC1987) © STF 

WMTCS1D) © TSC CID OE TSCU IMSS TSC 997) 

ISTRG © 9S 

WF CTMTI319)-TSC139219 85.99.98 


CQUATION ND 2. Tor CALE) (BTM, (FULFL CAD 
ForRAL.HeOPT, TeOPT SETLP OENERM COU FOR Z11),2¢2) 
TMTIW201° STAF NCS TT 
IS1R3 = OS 


WING AND CPPCNNAGE MODULE - 


$180 1000 
STAGIOIO 
SIAC1020 
STRGIO30 
STROLONO 
$7AG1050 
STR 1060 
STAGIO70 
STAG1080 
STROIOBL 
STRGLO90 
STAG11L0 
stmoi1io 
STROTIZ0 
$1901130 
STAGIIS) 
STRGLINO 
$TA01190 
STAOLIGO 
STRGLI70 
STA01160 
STRO1IGI 
STROLISO 
STAG1200 
STAGI210 
STRO1220 
$180 1230 
STAGIZ4N0 
s1a01250 
STRO1260 
STRG 1270 
STAGI280 
STAG1290 
STAG! 300 
STAOLIIO 
STAG1 320 
STAG 1330 
STAGI HO 
STAGI 350 
STAG 1380 
STAGI370 
STRG 1 3B0 
STRO1 390 
STROINOO 
STROINIO 
STAD 1NZ0 
81RD 1430 
STAG INS 
STAB IYeO 
STAD 1NS0 
STRDI~GO 
STROIN TO 
STRO1~80 
‘STRING! 


TSCUWWe) © ASORT CTMTER20)°THTI B20) © TSCUIRZ) OTSC 1410) 015053-TWISTRGINDO 


RSZODI/TSC (4100901199 
TSCCIBTI© STFIR 

TOES TEC INIOD STSCI FI) 
TeciDOSs © TSCCRRTICTSECI223) 
@ to 98 


EQUATION KO 1. OPT TLFULFL 

WILD FI) © PT Pere 
THEW de SORT UISCIPBZIZITSCIWLObe STMFMCTWT(Si2I0) 
THEPSIre TTI 3I2) TSC 1 I) 
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$TRO 1500 
$TR01510 
Sragis20 
STROIS3e 
STARING 
‘STRO1950 
srasisse 
Orns 1578 
Tao 1900 
Stao1990 


INPUT LISTING SUTOL GS CHART SET - SEP WING AO COPENNACE MODULE - 
eve CONTENTS eevee 
istag ° 98 STAGI9OI 
@ 1c $7 S1AG1600 
c STAGIGIO 
c fee) MAXIB/TD SF IFRAD STAGIE20 
¢€ COMPUTE AREA AT HetHAx $TRG1630 
c worpux 211) ONLY STRGIENO 
UNG TSCEIPE |e MSTMKSTSCON IO? SIAGIESO 
TSCA 39S) HST STAGIE6O 
TSCCDTI© THTCSIZ TSCL 3M) 3TRG1670 
TMTC3IGD = TSCU3HEd SU TSC IGS OTSC(39709 $1a01680 
IstaG © 610 STAGICO1 
UF «Tw 3199-1SC C3929 ¢12,99,98 STRG1690 
c $1RO1700 
¢€ CQUATION MDS. TeFCACID HMAX, (O/TOE DD SIAGI710 
¢ MeMUX, TSOPT, FUSFTL*OPT -- GENERA EQU FOR 201), Zt2) StRGI720 
c $1AG1 730 
U2 TSCCRMED= CGORT CTSCC3ISICTSCU SMS Pe WSCC TAP) PSTREW D150) THT SE2PISTRGI MO 
B= TSCCIGSE DTT C312) °DE 1S) /STREN $1AG1 750 
TSCUII7I© THTCSI2) CTSCL IM STRGI760 
Istag = 112 S1RG1 761 
@0 10 370 ST1AG1770 
STRGI 70 
721) TYPE - TEST FOR £OU IN REGION 1,3 STAGI 790 
$20 IF CHSTHX-HSTROW? 820,121,124 STRGISNO 
¢c WKN TEST AT FU-FL STROI@I0 
120) TSCCHMee STK Tete 3t2) STRGIB2D 
FSC(3G5)= HS THX STAD 1830 
122 TSC13Sh > STEN SIRGIONO 
TSC(3ITI= SIFPN S1RG1650 
ISTAG © 122 STAG1051 
IF CISCORBED- TSCA Bed CTSC1FGSI© TSCL3ST © TSCCIOT7P) 123.90,312 STAGIEGO 
¢c STAG1870 
EQUATION NOS. Tef LACT) HAMAX, FUMIN, (B/ TIF) $7AG 1680 
CUTHIN ota FL OPT sTag1690 
123) MT e3V0d= TSC 63S) TSCI 39S) s1A01900 
TSCCIDM De (SORT CTWT (S20) INTC 320)0TSC 4392) THT (312201500) - THTISTAGISIO 
132090 /TWTI 3122 De ded stmg1220 
ISTAG = 123 STAGID21 
@O TO 1290 STAGIS.30 
c STRGISNO 
¢ STAG1950 
TEST FO? MAXIB/T) STRG1950 
O2e FUNDED 90> 8795027, 127 STRG1970 
c (Oe HoH STRG19B0 
125 YSC139S STF StIRG1S90 
THC1 IST) STF eK STRG2000 
TSCAPPer= TSU FBG /THT C312) STRGZOI0 
TSCUSS t= TSCCHTOD TSC DD SiTmaz020 
ISTAG © 123 STAG2021 
WE ATSCEWO2D- TSC 6 II) C1 TSC 199516 1SC1 99S) TSC1997I9) th 99.95 STAGZ030 
¢ STAGZ0+0 
¢ STRG2050 
c Staaz0so 
¢€ Sraaz07e 
¢€ srageoso 
¢c Feerux 1Del TEST O/TIFUMIND, B/TIHAK)---DETERMINE LOC STAG2090 
127 PSCC I ST sTaG2106 
TSC(Wel= TSCCITSI/TSCINIOD $Tag2110 
FOC C RRB ]© MTES12) STSCC I? STRGZ120 
TSC 1 3871 3SC | 39S) st™aaz130 
{STaS © 127 Stac2i31 
W CYSC6388)-STF eee) 120,128,140 STRGZ149 
¢ TIN. COU BOR SS srmazise 
$28 TSCIIBBIe STFoe STaazi68 
W CTSCARRR) - TSCERDNIISCE ISS) CTSC CPEB TSCADSTIIT 128,129, 1Z21STROZI FO 
s7A62100 
EQUATION 0 3B. PoP CAC 1) FUMIN, (R/T, (O/T FD ST&2190 
FUMEHIN, FL OPT sTaaze00 
02S PHTCHPO) © TSC eNO Mei BI2) sTacazie 
ISRO = 128 srmazets 


TECCIRe) © CSORT CTSCUPSETSCIISS? © TWTIS28) 0150) °TSC1 POZE - TSTROZZ2G 


2512 


ish 


Camp ww 


PEER PO SEUSS CLUSEOPCOCCLECCOOCOCOLSLSCOCOEEE 


et LISTING 


09009961 07TWT1320) D119) 
PSC APTS oTSCU SHI TSCiNIOD 


1290 TSCUPBRT< TIC 312) ¢1SC 1 ed 


¢ 
1x8 

¢ 
— 


nananaan 


q 


37 
tm 


FUL OPT AT H=HPUAX 


W ATSCA TAZ - TSC UBS DC TSCC IGS eTSCETMWre yy. 597000 Wet OB. I2 


TES? FOR OPT FU.FL HOR FU=FRIN 
TSC(3OS)= SIFIN 

TSCL3O7¢ SIFION 

TSC (3ed= TSC( IOS) TMT C312) 

TSCC PWS = TSC13D TSC 14 1O 
ISTAG = 181 


ASTOFLOM CHART SET - SHEEP 


WING AND LPPTOUCEL MODULE - 


sene 


sTaaz230 
SING22NG 
SIAGIZSO 
sracezse 
STRGa270 
STRGzees 
StAG2290 
sTmaz3 ~ 
Stmvedis 
STAG?320 
sraces"0 
STROZO 
stRaz31 


WF CTSCt 390) eC 1SC13O5) 6 TSC1 99S) © FSCII87I: - TSCITE2)) 08,909,123 SIRGZO 


zeny, 223 
REGION 2 TeTMG TEST WITH ata 
TSC(39e1© 1SC19922/TWT 1308) 
TSC C305) =H5 Tex 
TSC 4 3971 STINK 
TSC(3OBI© 15C1397P TSEC (223) 
ISTRO = 100 
& CTSCC392) - TTC 30>) 101,99.99 
te vno 
TSCCIP © STI 
WW CTH 3012-THT1303Ed 182,108,108 
Matet1N 
TSC C385) STON 
TSHCIN7 © TT1301)-TSC4 I 
ISTRO © 102 
W COtl)-STRFW) 1605.99.99 
212) TYPE 
TSC( 306) © SIAN 
157M © 105 
& 6110 302)-TSC63S7DE 108,104,105 
TSC(388) © 1SC(IB7) OC 19) 
JTTRG © 10% 
TSC(397) © TSC(387)-1SC( 306) 
@ro 
wm ifu- 
TSC¢39S)© TIC 380)- TSC «3G )-TSC 1387? 
1STRO = 108 
@ 10 = 


OLGION 3. ALLOA 
tw1395) © TMTISIS) 
TECC33S) © TwTC315) 
T9C0397) © TTt3I6) 
1STRS © 107 
@ fo 98 


GESION 3. ALUN CESS Wer atin «= Te MG. «PEST FOR Z082,2120 


TSC( 395) 45 TON 
TSCURS7d~ THTI 312) °TSC< > 
OF CSTR We - OCT) 130,051, 1 
zi 
WF STO - WSCCRRTID 892.033.1353 
FSCO IST) STII 
W UTSCCSRS¢TSCCTIS) © TSC1¥T7D-THTCBBET? 108,107,102 


Pir) 
 ISTFPR - TSCCIBTOS 835.935.1357 
TCT} STH 
TSC(WOS de TSECL223)°TSC e387 
@O 70 133 
WF ClSCCIR7) - StIVOe 130.258.138 
TSC 3OS1¢ SIF IN 
0 70 133 
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STRG23S0 
STRGZI70 
sTRo2300 
sTwmc2 300 
STAGZV60 
STRGZVIS 
SIRGANZE 
straz 30 
SsTaa 31 


STAGESO 


STRGZS10 
staazs20 


ee 


B11 


Cara Ww 


se 
3123 
3126 
3127 
hie 
a129 
3130 
RIE T) 
Nw 
3133 
Un 
3155 
x18 
3137 
us 
139 
3BIN0 
Saet 
Bi 4 
3r93 
Bi 
31%5, 
36 
3147 
sie 
iL] 
nse 
3155 
352 
3153 
Piha) 
Rik 
3158 
3:57 
i158 
3198 
3168 
3161 
3162 
3163 
vie 
nes 
si6s 
3167 
3163 
2168 
3170 
nv 
372 
ni73 
nn 
31, 
Nw 
3077 
Pe, 
179 
ties 
3181 
see 
3183 
Ble 
Ne 
3168 
3107 
ses 
s1008 
3198 
Bis I 
a192 
Biss 
bit) 


WING AND EMPENNAGE MOOUWLE - 


SIRGCB7O 
STRG2BBO 
STRG2OSO 
$taG2900 
STAGZ9IO 
STRGORCO 
STRG2930 
STAG2WG 
STAGZISO 
STRO296O 
STRG2970 
STAG2900 
STRG2930 
STAG3000 
STAGIOIO 
$TAG3020 
STRG3O3O 
STRGIOND 
$TRG3050 
STAGSO60 
$7RG3O70 
STRG3080 
$TRG3090 
$TAG3100 
STAGSIIO 
STAG3I20 
STRG3130 
STAGSI4NO 
STAG31ISO 
STAO3I60 
$1RG3170 
STRG3180 
STRO3190 
STAGS200 
$T8G3210 
STRO3Z20 
STAG3230 
STAGIZ4O 
STRG3250 
STRG3260 
STRG3I2Z270 
STRGICBO 
STAGI290 
STAG3300 


STROS3Z0 
STRG3330 
STROSP0 
S1RGO3350 
STRO3360 
$TA03370 


$TROO100 
STAOOLIe 


(PUT LISTING MITOF LOM CHART SET - SHELP 
cece CONTENTS 
c eeeeDAlTA SETUP FOR SIR SEARCH. TISTHI ef tKeTSrINFeese 
eee INPUT SETUP -- TEST FOR ISTR © CONSTANT see 
Gi IF CSTRSK) 70.70.6110 
610 IAGO © NDIND 
Tutt 322) > STR 
THTC32N2 = TSCHNODIOTSCHMNI? 4 TSCI2) 
THT(326) © SIMSK*TSCONTED 
IF cOCL) = THTC32NdD GEb 613.613 
GIL TTI 324) = SIRSK/SORE CTWTIIoNDt 
THTUS2i) © TWICE STSCISit) 
JF CTWTC324) - STRROF 612.613.613 
Sl2 THTt32)) © STRROSTSCI4II) 
G13 fwte323) © Dre? 
IF CTWTd321) - STRANI § 614%.614%.62 
Gis TWT(32a = STRAIN 
00 TO 70 
¢c 
e4eSC ME BASIC STR CONTROL DATA ove 
62 STAM © TwIt321) 
THT1323) = THTC32b9/THT (3220 
G3 TTC 304) © THT 300d oTHT C323) 
THT! 307) = THTC307)/TWT( 323) 
00 639 t+1.2 
TSS( 142) © TSSC1 942) ¢TNTE32T) 
THT(26307) © TWTChe3O7I/TWTI 323) 
TMT(1¢309) © THIthe 309) /THTI323) 
639 CONTINE 
eee SETUP MIN STR=FIFCCR) DATA 46 
CAL STRCO 
c eees TEST FOR SETUP OR EXIT ON IRGO sere 
1F (IRGO - NOCED) 70,70,999 
c 
c eoee EXIT PHASE. I:ST FOR RESET OR STR DATA. IRGO=2.¢*¢ 
9 IF ICNSIO) 64.64 999 
@ = IRGO = NDI2) 
IF CTWT6322) - STARR) G40.040,999 
@10 STRPN © TWT1322) 
TWT(323) © THII3221/TWT S21) 
00 10 63 
eeesTESt FOR BLOCK § PRINT. § IK=4 cree 
999 1F (1P0331953,53.9999 
S3) Ik > MOIS) 
CAL PRIBK 
¢ 
9999 RETURN 
oo 
Ceseseccssessseeevecscetecerercseceuscetasetuaueceoerert Po 
¢ 
c eee °GUBROUTINE STRGOCteee 
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c oC SKINGDS® STAB IS20 
16 CTRVT, $45,195,144 S1mm1530 

Ise TSCCIVOP © OCIS) SIMBISNO 

TECIN20) © TRVT - TSCCuIID SIRBISSO 

WF CTSCIN205) 199,199,145 STAB1560 
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SETUP RATIO RAD 

TSS1213 © T1551 3a) 
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SARIO3O 
PRIMO 
PRI OSO 
WR1ONGO 
PRIN 
SAR I8O 
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FRSeis © TSSESe - POCKII2) - FOCrIIN 
OF ctescend 201.201 .202 

TSSthe = TS6CR 
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toe NONE?) 
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$1HE 0530 
STk OD 
$1 550 
‘$TsE 0560 
$1Wl0370 
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TSS(4) © TSS(2) ¢ TSSt6) 
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STME e460 
STE 2470 
STHE2080 
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mw c s CiGors0 
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my 155413) TOCtG9) -1S5115) €iGoeio 
ms TSS4t%)-TOC§ 7O?-TSSCIS) CiGaaNo 
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me TMT C2 CTSSEL SN OTT CL TINE TMT CES) ¢ FSSISI0) © CTSSEie) CIMT Cs OE IGIOO30 
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wn ¢ COMPUTE KEQUIV) UPR. €iGmas90 
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c YCG SECTION -- LESS FS.RS HERS EIGUI44D 
TMIN287)© THI209)/TT (297) €16 714390 

c C10 91460 
c COPPUTE EL -- SUM IN THT(207) E1GI1470 
¢c EIGv14e0 
¢ 0-22-65--- ADD 110) UPR LWR 110) CHR (TEMP) © CODUPR X FaU7AL) CIGIINID 
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S268 OO ist 11,2 MTP 10800 
S249 Tee C3 7b do Tae C371) o THT +360) UTP 10810 
ses0 TMT (Le 36Gb TUTE Ls WBOre THT I Le 7D WTP TOSZ0 
$251 FMT CLS HST 2] TTC IVD LTT LeSSOne THEE Le STEe TMT Efe S35) e TTC Te S52) FTP IORIO 
S252 TUT ESTE De TMT CSTE DOTWTE 16357) WTP 10G40 
$2733 TUT AL 6 FS Tho TMT 6 Le 3571 eTHTC |e 33D) o THT CLs Pet Pe HTC 1+ 3501 MTP LOESO 


2543 ono 


OB711/% 


Can 


INPUT Listing @UTOFLOW CHART SET - SHEEP WING AO CPPLWNAL POOAL - 
eee CONTENTS voce 
Teac 399) DLL iN) ute 10eso 
U8 CONTINUE wip 10870 
1P 10880 
c SUM RIMS, MISC AIT utr 10880 
050 PT 1 360) FT 1333) THT ISSO) MTP 10900 
ToT CS Peo TWIC 33S) PHIL ISS) oTWT 1356) o THT IS7) MTP IORI 
THT CSTE OTHECS IEF OTWTISSSFe THT «B72 MTP LOBZO 
THT IS Pada THT ISPs) THT ISI STP LOe*r 
WTPIOMO 
SUM TBOEL ITE) + SUM UTP 10950 
USO TMTIS7ND © TT STPPOOL TEX © TWIt3802 WTP 10960 
c WTP 10970 
MTP 10380 
c TOTAS MTP 10990 
1G) THTISB2) © TWTIS7ID WTP 11000 
TWT (306! = TW11380) wre si018 
TTC IRL) © TWHC362) + THT13B3) © THT¢ SOW) WTP E1020 
TWT1385) © OMISCOINT( 31) WTPT1030 
THT (381) © CELMOC(THTC 381) ¢ TWIC36S)) MIP IONO 
c MTP 11050 
¢c *°SAVME WT/IN DATA BLOCK FOR C-SEC, DELTA PIVOT CALC ** WIPILOGO 
c *Ul SETS OF SO PIECES OF DATA--THT(331-380)¢° MTP11070 
¢c STORED TIP-RT EN THI1-950)¢ bel toeo 
200 J > ISC%S0 - 50 WTPL1090 
00 20: 11,50 MTPt1100 
veseo mm MTPILLIO 
Tatu) © THTt1 6330) MTP L120 
201 CONTINUE MTP T1130 
WTPITINO 
c TP 19000 
orexitee MTP 18010 
209 RETURN MTP 19990 
oo WTP 9999 
CovsvecsarsecerseusesvevecuseeucveuvetSarcuceuSGCusanusecvSesesuDeCEESES 
c 
c CCCCCELBROUTINE COMPseeee 
C = 4 PARABOLIC CURVE FIT AND EVALUATIONS? - 
c 
Cocsseaceceecccucausacussusseeseucess: 
¢c 
SUBROUTINE CORP 1XX,22) CG3P0010 
¢c L.0. 3-POINT FLT SUBROUTINE -- FINDS MIN OR INTERPOLATES FOR CG#0020 
c REVISION -~ 81-07-66 -- NEW FORMAT FOR SIR-PIVOT-- REVISE LINK €G63P0030 
¢ Como 
¢c x aT Yeh CG3P0056 
c CG3P0060 
c IKeND(39)* TYPE ID CO3P0070 
€ TLeAD(40)= MIN. TYPE CosPoce0 
c Met, LEFT, flee, MIN, [he3, RIGHT CO3P0090 
c COwOl00 
COPPION. 1120607 012080) .CO‘ 20001 .ND< 100? Comwoi20 
c Cow0130 
OIMENSION Cowoivo 
UTOC 1200) , TSC (N20), TSS61), CowPoiso 
RCT) .CZCTd , KKCTd,ZZIF) CHEM) CCAS comwci6o 
¢c Cowoi7o 
EQUIVALENCE CTOCCED TALPOLD) CTSCOLD TCISID) CTSSC1D TERSELI, §«©—COIPO1GO 
VCCKE TELIB TID ECKL D TEUSATIT ACZEVD TANI CCCLOD TEGS2BPD, COO! 
eer Wess200 cowoie2 
CQUIVALENCE (IL .MO(NOD), CLK NOI 390), (NDI NOCL I), (NDCT NOISE) CO3P0190 
c OVE DATA cowo23o 
90 00 80 101.3 TOWOAN0 
Cxch) © mad) cow0250 
WO CZUNb © 2200 Cowozso 
¢ FIT CURE, COMPUTE CONSTANTS A.8.C cowozeo 
00 10 11.2 coxPozao 
HULodd © CXELD-CKILOLE Cowosoo 
10 CHUhoG) © Cuesnecuctons Comosio 
FIG) © CKI2I-CXIED Cowo330 
HCO) » CxI2reCXEF) COPORmO 
¢€ COPPUTE LLL A.8.C Ccoworse 
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OR GOthiE Sere: gerenecetS cer nee nrc eer ee 


Bh 


CARD NO 


3323 


INPUT LISTING 


a 


CONTENTS 


MJTOFLOM CHART SET - SEEP 


WING ANDO CPPLULE MULE - 


CHAGD © CIULIFICF AND eCE SDD CORO 0 
CHAD © CLIQIACH AG ech edd CG #0370 
CFtyr = CLES ICH Groce isa CG3P0300 
COULD = Chate-CrI2necrisy cG3w0390 
CEES: © CHL]NCHCOD - CFCLISCFIG) - CFASPCK IT CG3PON00 
CHD © CPEGh- SCMEDPOKCCHL DOCKED SCC1299 COP O10 
TEST FOR TYPE OF EVALUATION I* MIN, 2° EVA X AT Yel Cowor20 
Coworse 

WF Che - MILD) 21,21,20 COW OND 
tva KAZ? © 1.0, TEST AS CGP ONS0 
Ww eCCanst 33,392.33 CoP ONED 
CHE © £-CCL20 - SORT ICCHQICC]) - DewreCCerpeccCsS? - Dever r)-DCGSPON7O 
ccr@izccan CosPove0 
GO to 30 CO3PON90 
CGw0s500 

als ARO Co3P0510 
CxE © dOCd? - CCB NCCIe) cowos20 
0 10 10 CGOw0s30 
10°1.0 TEST FOR AND LOCATE MIN AND DIRECTION CGPON0 
CG3PO%50 

W 6CO0bd25.22.25 CG3P0560 
A US NOT ZERO, TEST SIGN Co3P0570 
1F 1CCChd) 29,26,26 6 3P0580 
WF ACZCND ~ CZC3DE 24.24.28 Cowosx0 
tOe-1.0 FOR EXTRAP LEFT COW 0600 
1h = On CG3P0610 
WF ECZCdd - CBCI2 3.30.28 COW 0E20 
A 1S 0.0, ST. LINE TEST @ Co3P0630 
WF 1CC120023,24.23 COP 0640 
@ IS MOT ZERO, TEST SIGN, 1.0* EXTRAP RIGHT Co3P 0650 
1 = NDI) CG3P0660 
WF (CCt2)) W.4 Cow 0670 
CosPoseo 

AIS POS, FIND MIN CG3P0690 
Cxle t-CCM2a ICCC eDI2N Cowo700 
Wu © NDZ) cowo7i0 
IF COXCED-CXD) 27, 30,24 Cow0720 
WF CCXC37-CXI) 28, 30,30 CosP0730 
iL = NDR) CGOWPOMD 
Cow 0%0 

exit ©63P0770 
30 RETURN 063P0810 
CosPoe2o 


€ 


Coeusucacesecusesevssenecccceuresyseuttueucuaceceseusesesuuerscacesessey 


€ 


c 
c 
c 
¢ 
c 
c 


¢€ 
: 
¢ 


0000 eGUBRUUTINE SS0* 


oe eSTRESS-STRAIN CURVE EVALUATION AT GIVEN STAFSS (FCreee 


SUBROUTINE SS {SFCI) 
STRESS-STRAIN EVA. SUBR 


REVISION -- 81-10-66 -- NEW FORMAT 


STRAIN AND REDUCED MODULUS FOR GIVEN FC 


COMMON 112060) ,.0¢ 2060) ,CO12000) .NDT 100) 


OIMEbS ION 


UOC 1200) , TSC 1420? .TSS1100), 
@SA11%) S007) 


COUEVALEMCE CPOCEDD TD Pela d eTSCULD Teter dD A TSSEN) ,TEISSEDD, 
HOGACED TALS 77O) , CSOAE) TAN 3G20) ASC TEL 3Gidd , CSC2, Tn R220), 


2SCi,teaseae 
wc e Cl 


io Cw amass 
Kz Otis 3 
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SOUGURSTEORTAEENeSAESESEDECCRELAeEOsEESEeEDSES 


ARRRRRARKRKKRKKARARRRRAS 
* 
= 
oO 


se i 


SN 


itgas 


PGCE RS EEE 


¥¥sr793 
a 


13a 


H 


it}! 


PERE SSSCCCCSLOSL SSS: 


INPUT LISTING 


CONTENTS 


MJIOFLOM COURT SET - SEL 


MING MO CPPTMUL MOLLE - 


% 0230 
COMPUTE STRAIN, ET. CS BS are 
BATT © HCH? © Dee LI ss azo 
$A13) © HC SALI SS e260 
G2 GAJdw DUNNE G2 © Wes resor2nesc % a2” 
Ch © Barz Gar) $s «8780 
% ero 
[esx 20 KBOT % 0300 
BS GALE © SALI CCDIWE 1 eD142191SORT (DIGS) © DUwerescnyy % O310 
SAID) = SOIG) SORT 1SAIBI SFC) BH 0320 
¢c cmt a0 cm2 % e338 
BAIS) © SORT (SAI29¢°S01 3) % ene 
SAIS) © SAUTE 6350 
c {RGI AD ERG2 %S 0360 
SAIG? = SAL2) % 0370 
Pe SACTD = SALI CIDINSE © ONE) SEED 9S oO 
¢€ 3 e390 
8 RETURN 95 00 
3 10 
° 
¢€ 
c S20 CoE BROUTINE PRIBS CeCe 
C = ®*°DESIGN DATA PRINT - TYPE 8 SECTION DESIGN OCTAIL SUMPURYSC? 
c 
CovcersceseccecsseceuceccecrercesseersereseseEseresueoeTeCTEtERSiseuEEEES 
c 
DBROVUTINE PRIB wareooio 
c pRTeoo2o 
c CCOPRINT TYPE B--SYNTHESIS DETAILS°*e onie0030 
¢c PRIBOONO 
c vateoi so 
c PRIBOLNE 
c PRTBOISO 
c enteoi70 
COPPION 112060) .012060) .CD12000) .ND1 100) parecies 
COPPION AMISC/ HIST (100) PRTeolss 
c nreoiso 
OUPENGI A 0C1100) , sOC 6200) , TSCt420) , 1551100), TUTIYOO) ,FSEC1300), PRIBOZOO 
OTOGMC 32 ,OGHI3), PRTpezol 
mire) rRieores 
c enreo2zis 
COUIVLEE (OCH 12 OC 14OUI), TOC ETD TCL IOEDD CHSCOTD TOUDOD DD, PRrrecz220 
OCTSSETD TOMGGL dd CTMTSTD COCLIOIDD CTSECCHD COUISOIID, PRIBO221 
QUIRED WUISC OSD, pateoz22 
Bc TOG 1) 0180) +, (OGL) 011020), wareoz2s 
§(2C10,01430)), eater 
O10 20d, CINOT2BND, (MOLSON) AN, NDC SIDE, parecz26 
‘76 LE ST DCS) CI 00559, 010P1 NOIB2ID, enteoze7 
SOUND .PO15H)) , 6 20 NDIS7I) CISEC NDISS 2, eateoz28 
@INCAGE 001601), (NPAGE .ND(851) PRIBOZeS 
ce PRT—OZ3O 
€ PRrTeome 
c PRTBOsIC 
¢c eateorzo 
¢ TYPE 6 PACE PRINT -- [0-1 SECTION DATA OLTAIL STORACE PRiIBOs30 
¢€ MOC 8 © STORAGE LOC. MEF. PRTOOWO 
¢c MOCK 1--UPPER COVER, GENERA DATA -- TOC REGION PRILVISO 
¢€ PRTOO? 
108 peee12)-1SLC parer n 
iota PRT: 20 
WRITE « LOC AGE 4, TOGHE T) .OGne 1b 3G, LOR) PaTeoO 
101 WHCAGEIS.10H «SECTION 17,13H DATA. TOGMTB.1.6H OGPRIBOOO 
FO.) Gt IGh 1) MOD 17s LOR LOTT 12K, EHO? PRIB - IPCD 
€ PROS 


Wife - 23901 505.501 


S01 WRITE (6.502) 
SO2 FOROWI hits 103K GHZ) °°) 


eo to S18 


903 URITC16 Sen. 
SOB FORMATE Nite 1894 .So31P °°) 
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tA tea! 


CARD 0 


SESESSESSSESLOSL SS 2 


SESEERECESERS PER ES 


PUT LISTING SUTOFLOM CHART SET - SHEEP WING AED CPPENINGL POOLE - 
eoee CONTENTS eons 
c case TIME? PRTOOH LD 


S10 WRITE 16. 10201RC Td tot tes 
102 FORMATI‘HO GAlO/IH .6A1070 


WRITE (6,103) 
163 FORMAT in TOC 4 -PPER COVER WO GLNERM DATA-*°°-) 


¢ TOC (GS TO f1Sie BLUES 1G © Sy CELLS -- LINES © - 8E 
Oe FORMAT (2n,13, 715.7) 


OO 105 M-68,110,7 

net 6) 

BRITE Cl A Se oe 
105 CONTINUE 


*o@LOCK I-A FOR ADV. COMP ONL YS* 
PRINT LAMINATE DATA FROM TOC(121-1391¢ 
IF (ACiOF 109,109,106 
106 00 107 NW121,135.7 
Jeno M6) 
WRITE (BLOWIN. CTOCE ED SoM. 0? 
107 CONTIN 
¢c 
@LOCK 2 -- LOWER COVER, FRONT AND REAR SPAR DATA -- TOC REGION 
109 WRITE (6,110) 


PRIVN IO 
PRIBOW TS 
PRIBON 3D 
PRIBHNO 
PRIBOVSO 
PRTBOWEO 
PRIBOW70 
PRTOONSO 
PRIBOWSO 
PR1e80500 
PRIBOSO? 
PRTBLSOS 
PATeOSO9 
PRTBOSIO 
PRIGOSII 
eureosi2 
erte0s13 
PRIBOS!4 
PRIBOSIS 
erte0520 
PRTBOS30 


410 FORMAT (S6H0 TOC -"°-4OKER COVER, FRONT AND ALAR SPAR DATA-©¢-PRIBOWO 


c TOC 1161 -202=7 LINESMB 42 COULS -- LINES 15-21 
OO 116 e16t,196.7 
NON (6) 
WRITE Tr eo 
41a) CONTINUE 
c 
¢ 
¢ SeeTEST FOR COPPOSIIE OESIGN--SKIP FOLLOWING BLOCKS IF 
¢ COMPOSITE DESIGNS 
Wf CaCl) 199.1200, 199 
c 
¢c @LOCK 3 -- STMUCT £1.G) DATA -- THT. TSS REGION 
c ATA STORED IN CD( 1637-1870) 


t200 WRITE (6.120) 
120 FORMAT ¢42H0 THT -0e-STMUC TURAL £1, G) DATA-*#- 9 


c THT1282-299)° S LINES ME-18 CELLS -- LINES 26.25.28 
282 
OO 121 K-10, 1867.7 
KONIG) 
WRITE 1B, 100M, (COUT DP ad 
wmeonD (7) 
121) CONTINUE 
c SS17-25) © J LIMES X G18 COLLS -- LIMES 28.29,30 
RITE 16,123) 
123 FORMAT 16H «TSS 2 
¢c 
te? 
OO 122 Ko1837, 1069.7 
PKG) 
SRITE 1B, 100 00, 1COUND Todt 
be=neooD1 7) 
128 CONTINUE 
€ 
¢€ WEST FOR WCAC. IWe?. MO CAC. IF twel,3 
¢ 
1F Ota) - 1d 198,130,199 
ce 
c PRINT BLOCK & -- W PENALTY DATA IN SECT. 
138 UF CEWFST - ROC2dd 142, 18S, 182 
182 BRITT 416.0300 
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(Put LISTING MST LOM CHART SET - SEP 
cece CONTENTS 
131 FORMAT 148H TSC -¢*-DELTA WeDATA -- J COAPARISON-*°- + 
fet FORMAT (NSH TSC OL Ta WE OOATA -- IW COPPARISG-¢*-) 
oO To 1399 
¢ 
143 RITE 16,080 
c 
TSCC35-77) W DATA -- S LINES 
138 OO 133 Ne3S.71.7 
Sete nis) 
WRITE 1G, 0OWIN, ATSCOND DOM dD 
133 CONTINUE 
TMTIS5-96> © LIKES X T/ALINE 
ORITE (6.1%) 
UP) FORMAT (GH OTT) 
00 135 6e%.90.7 
Jeter 16) 
WRITE 4G, LOVIN, ATHTIED eM, 1) 
133) CONTINUE 
TOCE1tG» TO TOCH120) -- 5 COLES IMED 
WRITE (6, DI2TOCC Deh IS? bot) 
132 FORMAT (12H TOCHNIG? §=.SFI4.8) 
¢c 
¢ 
c 
ce ext 
199 RETURN 
Bo 


WING AO CHPCHMACE POOL - 


epRt80%0 
PRIBIILO 
PRT—O970 
PatTeowo 
enteosse 
PRTBI000 
PRIBLOIO 
PRTBLOZO 
OnTe1030 
PRIBIOND 
PRIBIOSO 
PRIBIOGO 
PRITBIO70 
PRTBI080 
PRTBLOSO 
PRTBLIOO 
PRIBIIIO 
PRIBtIZ0 
PRTBII30 
PRIBIINO 
PRIBIIS0 
PRIGLIEO 
PRTB1170 
PRTG ICO 
PRTB1 190 
PRTB1200 
PRIGIZIO 
Patei220 
PRyB1230 


CovecssesecesansccscoerssscccorscccseveceusesecsoveseseuuueuessespesesE 


¢€ 
c 


0066 eSUBROUTINE PRICSseee 
CO°DESION DATA PRINT - TYPE C SECTION HESOMT OLTAIL SLREY. Vere 


anananoa 


nanananna 


SUBROUTINE PRIC 


oeTYPE C PRINT--HEIGHT ANALYSIS DETAILS¢** 


COMMON 112060) .01 2060! .CO12009) .NO1 100) 
COMPON ANISC/ WHISC (100) 


DIMENSION BC 100), TOC 200). TSCIN20) , THT 1400), TSEC (300), 
VETC2ed, TSS11000, 
2700 3) OGM 3), 
wie 


EQUIVALENCE CDC11) 0614019), 1TOCEID, TEL Pos dd CPSCOLD TOSeLDD, 
VOTSSC1D TEISSEDD ATWT CED COCLIONDD 1TSECII) CDC ISOND?, 
QR LD OHISC UGS) DAT TAND TEES TEP, 
BCTOGHEL) 01809), CDGH1 ID ,0610297, 
8CAL10,.01%301, 
G61 e628) 1 CK MOTION) CNT SED, 
‘TClOPs .MOCe200, 
GE 266 O57) Dd, CODE M156) CI MOCSEDD  CISEC NOISS90, 
SINCAGE .NDIGO)) , (NPAGE .NDIES)) 


TYPE C PAGE PRINT GLOCKS | 10 S---PAMEL WEIGHT DATA --- 1093 


wRICcooIO 
waTcoo20 
PRICOOIO 
PRICOOVO 
entco130 
PRICEINE 
PRICOISC 
PRICOLGO 
PAtColeO 
PRICOISO 
PRTcoiIs! 
eRtcocoe 
PRTCco2t0 
watco2 it 
entcozi2 
PaTcoei9 
patcoz20 
Patco23o 
PRICOZ40 
PRICOR4) 
PRICOM? 
PRICONS 
eRTcoze 
ORICON 
PRTCORN? 
PRICONS 
PRICORND 
PRtcoIzo 
@ntco3se 
PRICOWO 


GLOCK 1 -- PANEL GEOMETRY SLUPPURY AD HEIGHT DATA REGION -- THT-UPRICOTSO 
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ontcemo 
PRICOITO 
eatcomo 
PRicess0 


aT ITT OT I KE ET 


OBIT RUT LESSING STOLL OM COURT SET - SEP MIND AND EMPENNALE MODULE - 


CARD 10 once COMMENTS eres 
608 ¢c PRICOHOO 
m8 ce PRICOWIO 
96th BOL ween tar - ISEC PRICor20 
iz € PRICOR IO 
sors DRITE (6, WO2SINC ASE .M. TOG DD OGtit tt, 1GH NOCH, IOP 
IN ¢€ PRICHNSO 
615 BO2 FORMAT 6 1HI SHCASEIS GH PANEL 12.134 DATA. [OCF B.1.64 OGHeF 8 .PRICONEO 
m6 UNG 1G 1 POP ET INKL HO? PRIC - IPOD 
617 c 
sie AF C1Gs - 25501,505,501 
3619 $01 SRMITEIG 502) 

3620 SQ2 FORMAT ( IH 103X.6H32) °°) 
321 @0 To 516 
22 $05 WRITE (6.508) 
623 SOG FORMAT I He .103X ,GH31) 90) 
La) c PRICOVTL 
3625 3O3 FORMATCIHO,BAIO/1H .BAIO.) 
628 PRICOW90 
‘3627 c "CAGE TITLES? Prtcosoo 
3628 S18 BRITE 1G SOSCRCTD bal, 86d PRICOSIO 
23 ¢c eRicos2o 
1630 c PRICOS3O 
363) ¢c *COMLOCK 1--DETAIL WT SLPPIARY DATA AT PAREL ILI eC? PRICOHO 
632 c TMT U1 Fed, 197-523) , 0149-153). 1183-228)¢ PRICOMSO 
633 € 17 LIMES X © WORDS: Patcoseo 
6h BIG RITE 16, ‘1te PRtCOs70 
65 310 FORT (4OHO «THT ~0¢-CETAIL MEIGHT DATA-¢*- 0 pnicoseo 
“ss Bi? FORMAT (3X, 13.9 11.9) eatcoss0 
“37 c PRTCO6CO 
3330 OO 313 1,972.9 PRICOGIO 
6. Kem e MDB) PRTCcos20 
badd ARETE GBPS, OTT ee PRTCOBIO 
Sant 313) CONTIME PRTICORNO 
wn OO 31% 87,123,9 PRICOGSO 
wa Kem oe Mie) PRIC 0660 
we WRITE CG 31200, A TTT) oN wD PRICOS70 
31s CONTINUE entcoseo 
me 145 PRTCOSSO 
a7 WRITE 6B, S120, CTWTChetned p28) pRico700 
00 315 = 185,.228,9 warconio 
as Rene IB) Partco7eo 
350 CUTE CB SQN, CTMTCLD, Po KD PRICOT30 
‘306: 3tS CONTINE PatcomMo 
2 PRICST O 
3353 c @OMLOCK 2--WT/IN DATA AT SECTIONC I D¢¢ PRICOML 
wan TMT (331 -393)--7 LIMES X 9 MORDS© wPaICOTIO 
os Ro WITE 16,321) PRICO7OO 
356 321 FORMAT (40H0 THT ~09-SECTION WT/1NCH OATA-¢°-) PRTCOTSO 
9057 c PRTCOBOO 
308 OO Je2 w-331.393,.9 PRICOSIO 
wy Keno mie) prtcos2o 
‘Sase CRITE 6G, 3220, CTT CED Lom OD PRTC0O30 
‘S661 322 CONT ILE PRTCOMO 
oa62 ¢€ PRICOeSe 
9663 ¢ SeoMLOCK 3--BLHD/JOINTS DESIGN DATASe* PRICOSSO 
oon € eoTTCl-2e)--3 LINES X @ MORDS® PRtcos70 
2.5 X30 WRITE 16,331) PRicosec 
Sees wi fomul is0HO) OTT -0e- JOINTS/BLED DATA-*o- 5 Patcoe20 
9087 Kaz FORMAT (3X.13.0F 11.4) euTces00 
bis | € waTcosia 
mee OO 333 1.25.8 PRicone0 
a7 Kote MTD PRTCORIO 
7 GREE CG NEPIN, CTYCED TKO PRICOMO 
wR 333 CONTIN putcerso 
‘2873 PRICOBEO 
. ta) Patcoss: 
Bm c eeotEST FOR AOV. COMPOSITES-~“AIP GLOCK © IF AOV/COP.*-* PRICOSE2 
Bas W 14C1D) 399, WO, ID enicosss 
77 € eatcesss 
67 c PETA USiGeee warcosses 
“67 ce SOCBLOCK §--COMOSITE £1, 6) DATAcce PRICOBTO 
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SRR NNN RRR ORES Ure ROR IRE arc. RPI A 
es 


Ssh 


Cam nO 


ZUPEGH PERLE GEER PERE SE 


om 
S702 
$701 
Sy 
$705 
sms 
377 
9708 
3709 
s7e 
37 
s7l2 
s73 
S7t 
sus 
$716 
S77 
$718 
3719 


S73 


$737 


Sh? 


MUTOFLOM CHART SET - SELP 


WI WO CHTNUCE MOOT - 


UMPUT LISTING 
sees CONTENTS ecee 
@TMT 1282-299), 1S517-240--6 LINES X & 601 FORMAT WORDS PRICOGD 
¢ e1EST IW FOR FRItT. PRINT ON 2 GLY? SKIP OF 1.3° eRTCOS32 
BO iF Ciw - HOI21) 399,1.399 prtcioce 
Bet BRITE 16, 2) pricioie 
2 FORT 1s0H = Tut -°*-COMPOSITE E1-GJ DATA-*°-3 ericio2o 
ed FORMAT CIM 3X.I3,EC16.8) PRIC1O30 
Dee FORMAT (6H =—([SS) PRICIONO 
00 WS N-282,299.6 PRIC 1050 
Keno MOIS) PRIC 1060 
WRITE 16, PeSIN CTT OND SON KD PRICIO7 
3S CONTINUE pRicro0e0 
¢c PRIC1090 
WRITE (6,4) PRICIIOO 
00 WE N-7.24.6 PRICIIIO 
Kew e MOIS) PRICII2O 
WRITE 66, SIN, CISSCLD De K ED PRICI130 
WG CONTINUE PRICEINO 
¢c PRICIISO 
¢c eric 1600 
c PRICIGIO 
c ext PRICIGZO 
we RETURN RIC 1630 
oo PRICIOND 


Coesurccescessccuccustceccceccaucucssucsvscsccscocusuesessesecseuns 


c 


ana aan 


c 


U12 FORMAT CRM SX ,GHISEC ©,13.5% GOON ©, 13,S5X.9HIK ©, 12, 31x, 


eee eSUBROUTINE PRIEK* 
*e°DESIGN DATA PRINT - DETAIL SYNTHESIS SEARCIi DATA’? 


SUBROUTINE PRIGK 
COCKTAIL BK PT PRINT SUBR. S-1N-7B. cere 


Caveeencusecsecaceucucevecee 


erte0010 
Prigoo2o 
PRTB0030 


SeoPRINT ON ID AT D(S75.575.577) AND BLOCKS ON IK, MDIJDI"** PRIBODNO 


COPPON 112060) .D(2060) .CDI 2000) NDI 100) 
COMMON /IPRINTs 1P680) 


OIPENSION OC¢1607, 
HVOC (200) . TSC 1420) ,TSS6 100), THT E400), TSEC1 300) 


EQUIVALENCE (TOCUND TCL POET DC TSCODD TCIPeNd)  CESSC ED TONSGTDD 


EQUIVALENCE (0011) .D1t4OI?> 
EQUIVALENCE CTHTCED COCHIOND) .CFSECER) COCISOL)) 


CQUIVALENCE (IK .MDC390) .CLSEC MOIS5ID 11 DCSE), (N.MDC 3000, 


1 (K,NOI29)>, C1RGO.ND(2819, (NOOW,ND(S6I) 


m= O1S78) 
Tf OM - NOOK 199.10%.199 


00 106 i-1.3 

Me Obes 

IF CESEC - NM) 106,016,106 
CONTINUE 

eo To 199 


SeePRINT ON ID= IK. ore 
OF chm - MOI20) 61,125,125 
OK 1A 
1 ARIE, 012) 1SEC MOON IK, 
120, TSC¢ 30S) TSSt57) 


0) Dates PRIBK (CALLED FROM ISCHD - [PISS eos7 
@ 00x, GHTSCilt § F1S.8710K, ATSCt2) 15.67 
3 0OX, GHTSC13B1).FIS.B71ON, GHISC INO). 15.67 
A) 
s 


16K, GHTOC( 721 .F15.6710X, SHTSC( IBS? £15.67 
10x, GHISS(S7) .F1S.6773 


eRnTR00sO 
eareoo70 


PRIBO100 
paTeciio 
eared 30 
PRIBOINO 
PRTBOISO 
PRTBOIGO 
prTeoi70 
orteos7i 
PrTeoieo 
fareaczo 


#F (80300 


SCOR? TSC 62s TSCA MBL TSC e409) TOC eT MIBOSIO 


Panne 


URITECS ESSE VSECC2eBs , TSEC CANS? . TSEC (290) TSEC (2519 TSECIZ253, PRIGOTIe 


2550, 


t Talia) 


Cano NO 


$m 
om 
$m3 
Sm 
35 
Sms 
$7 
she 
3m 
S70 
SmI 
S%z 
9763 
Sh 
5785 
Ey) 
$787 
S788 
$9 
5770 
$71 
S77 
5773 
a7 
$755 
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INPUT LISTING AUTOFLON CHART SET - SHELP WING AND EMPENWHL MOOULE - 
cece CONTENTS, seve 
1 TStC1228) eaieo3s35 
1122 FORMAT ¢ ~PHOBOTHR: .1£13.5.5K. GHBOTFA: 1013.5, 5X, GHEOTHEs, PRTeOS 36 
$ 1E13-S. SX, GHBOIFC* 1013 5 /1SHORATIO BT FH ©, 1653.5. 21K, PRIBOS37 
2 1GHI + We RATIO =. 1613.5 29 PRtpo33e 
Ke kk On POW 
@ 10 130 pRieo%so 
c PRTBO 360 
123 WREIC(G, 126 TSEC NORE, ba 
(2B FORMAT LIM SX .GHISEC ©.13.5% .GHNOOW ©, )3.5X.4HIK ©, 12, 31x, 
1 FSHe* PRIBK (CALLED FROM SING) - 1PC33) Fess) 
¢c 
IFAW - NOC239911,120,130 
¢c MOCK 2A PRTBO370 
120 BRITE (6, U200TSCUIa? prtecsao 
120 FORMAT (1OMOTSCINIS)*.F10.6) PntB0720 
Kem PRTOOYO0 
PRIBOWIO 
SOCKS 18.20, 3A,4A PRIBOW20 
130) WRITE (E9302 KM, TOC EID d , TSSE4S) , TSSI44) , 1SS149) . TSS(PRIBOW SO 
1461, TSS147) PRIBOWNO 
131 FORMAT ¢1HO,8x, 1K, 10H «=TOCCIDN), «SAM ISSINSD TSS(44) PRIBOWSO 
2 1ssi4s) TSS(46) TSS(47) 4 KLUB EO.6. FN. 7 PRIBOWSO 
OO ETE(G, 00389 NOCT!D NOE TED NDC 70) .NDCSED NDC4S) NDING) PRTBOWS! 
*.MOUW), NDI33), MOI32), NDI35), NDIO6), NDIO7) , NDIBG) PRIBONS! 
U131 FORMAT (SHOIBT*, 2.2K .SHIMK=, 12,2X, SHIAG®, 12, 3X, SHISK=, 12, PRIBOWS? 
12K, GHISKIS, 12, 2K, SHISK2>, 12, 2x, GHILI®. 12, 2X, SHIL2*, 12, PRIBONSS 
22K, WHILS>, 12, SHIM, 12 773K, PRIBOW 
SROHCALL TSCH FROM SFO4<, 1%, 3X, Z2IHCALL STBAR FROM TSCHe 14, 3X, PRIBONSS 
SIGHSTRINOER SIZE CODE, 14) 
132 FORMAT (1H 3x,13,6016.0) PRTBOW6O 
PRIBOW7O 
eoeeeTEST FOR ID-2 cere PRTBOEO 
1F Chm + MOI2)) 133,199,133 PRIBOX9O 
¢ ROK 1C, 3.48 PRTBOSOO 
133 WRITES. 1D 
136 FORMATIGHO THT? 
OO 139 §*300,330.6 PRTBOSIO 
Ko tems? PRTBOSZ0 
WRITE (GO, 03290 CTT OND Nod KE) PRTBOS30 
139) CONTINUE PRTBOWO 
¢ PRIBOSSO 
eee TEST FOR BLOCK YC eee PRTOCSEO 
tHO IF UNDI3) - IK) 141,199,199 RTBOS70 
19E WRITE (6.182) PRTBOSeO 
182 FORMAT (6GHO TSC) PRIBOSOO 
DO 149 16381 .417.6 PRTBOGCO 
Ko TeNDIS) PRTBOG IO 
WRITE (GO, P3207, ATSC UND NO KLE? PRTBOBZ0 
149 CONTINUE PRIBOB 30 
PRIBOGNO 
¢c OrmENIT cece PRTeOESO 
199 RETURN PRIBOSSO 
[7 PRTBOS 70 
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OVERLAY (18,0) 


TORQUE-BOX STRUCTURAL SYNTHESIS/WEIGHT ANALYSIS 
FOR ADVANCED COMPOSITE DESIGNS 
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Preceding page blank 


06718 


FORTRAL POOLE 


card 8) 


e@envweweztunwen 


FoR oS 


VPUT LIST tas AUTOFL Ged CHART SCT - SHMEEF WING AO Ere (ULE PNALE - 


WREST A UTCIEOD 


eoee CONTENTS eeee 


c 0c OoPROURAM CLAYIGS# eee 
€ Oe °PROCRAM FOR LIGHTH OVERLAY OF WING/EITES O° RORRC ese 
. STRUCTURAL SYNTHESISAISICHT ANALYSIS - 6... COP OESIQS 
¢ 
CuvevcevecseccesevecacesecsevevsceeCSeROTERSeeceereeeseneTesireeeueeeeS 
c 
PROGRAM OLAYIS 
c 
Corts TC Coa 1G6a) 
c 
RENIID z 
c 
DUTER PCAN ED ETCOMEED ,TCOMIQIES ID 
c 
OF CUNT T4289010.10,00 
¢ 
10 CALL ACPROG 
¢€ 
REWIO 2 
¢ 
GFFER OUTI24 PC TCOML LD. TCOM(B16@)) 
c 
46 (UT T4249920.20,20 
¢c 
20 CONTINE 
¢ 
it) 
Cocecscececgsccnsecccccesceereseccecccecasesoseueossecesercessseerenstes 
¢ 
c see ceSUROVUTINE ATBOPT seers 
C = 98 AON. COMP. TOROUL-BOX SYNTHESIS CONTROL eee 
¢ 
Coes 
¢ 
SUBROUTINE ATCOPT aTe00020 
© CWSAO021 
¢c @CCONTROL SUBROUTINE FOR ADV. COMPOSITE ANAL YSIS*** 
¢ TORQUE -BOX DESIGN--M/SPAR PLATE OR H-PNLS* 
c e OR WRIB STRIG OR FULL DEPTH HONEYCOMB? 
c 
¢ eesTYPE 10 FOR M/SPAR CR FOH DCSIGG.c+e 
c iJ PLATES--COVER 1D © 1 AO SPAP 1D = 1 OF, Be 
¢ kd HC 7PNL--COVER ID = 2 AND SPAR 1D = ' OR Bo 
¢c e FULL CEPTH HC--COVER 10 © 1 AND PAR ID © 3° 
c 
¢ CNSROOZS 
c NEROLO0 
c sA0120 
¢€ CHSROENO 
COMPION T2060) 012060) .CD1 2000) NDI 100), THIGO0) CT 12048? CNSAOISO 
COPPION SIPRINTS (P90) CnSR0151 
¢c CHSRO1EO 
DIPENS ION OC 1106), TOC (200) .TSCtH20) TSSCICOD. THT INDO) TSEC I3OO>, CHIROI70 
ITC6400) THC 200, TOtNO), OsR0171 
SST CLS) TECH Ee, O5R0172 
BTTABSs .OLL (301, en01 73 
ROP 1S)  APRIIOC IZ), 6R0177 
CEN 19) E16) CNT IDI), Osn0178 
mcs CGAR0179 
CBROISO 
. cere 190 
egn0200 
CQUIVALENCE COCEND DEISO1ND ETOCELD TOE Word e CTSCOND TCISD, CHSROZ10 
TETSSELd TETOSL 0d CTWTEID COCEIOIID CISECIN) COC ISOLDD, CHSRO211 
RITCIDY F1SGOFE  ATOCLD TIS2OI) CT TALD TCU SL PED, CNSROZI2 
DAVIO 115721, (OVPVT 062001), 100P TP OF 13981), CHSRO213 
QUST CLE CTIA D, TOIT E TESe2t)  FOLCSIT? O6VG207 1OCLWO.TL@729, CNSAOZIS 
BCOTIABCLD VIECGI) COCL EL) THT CeST ID, CHSAO2 IS 
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L Vaiiaed 


Caro ND 


SPSSCRRPscRrss<sResReaPeereeszsuasyayrzxe 


t] 
10 
1o2 
103 
1% 
165 
106 
107 
108 
tos 
no 
ou 
2 
as 
fis 
ms 
16 
a7 
ue 
us 


Ltd) 


MPUT LISTHG MITOTLOM CHART SET - SEE bins MO OFAC BAA - 


a 


nnnannnanan 


CONTENTS 


SUOLCW CELA APLC CCL IG ah CCELES CCL ONS) ELAS SCs te, 


GIN MOUTON IPA POL2SIP IPB O20, 
SONODNNO6E6 1), OIG ROMGED) IGT 15709 OLE BOLO TTD 


CQUIVAEHCE (ACID.OCe SOF? AACCVIO Diediis, 

WEARVSTY CN S2E1 FACVSTL ,OON339 CAPONE DENT) MACSFID.DINTSIO, 
BUACFSIO O64 361) CACRSIO Di 37IP, CACSSID ,DiN3S1) , CSMAM OF IS3I, 
BUSOPEL OC 36S , 1SAD TK OL SEG ASTLEN.OF37510, ISTLMS OFS 7SID, 
DUS TON DES TIED SHS TK, OU S7OEE ISTE MK 013790), (MIN, OFS5II0, 
SIOMAX 013019) COLIN 03623), SSTPCN,OF39309 ,1STFtTe Dediets, 
GIACKNP DINED dD, CACKIC OVNS 70) CCOPPLE OS 791) OFF RAD OLe7 30>, 
FRALPA L DUNSBDD, CALPHLE OC4ESE)  CACPILR DENCODD CLE SS-99.0:59700, 
WIDIC ,D1NG22 5, (INS OC46S19, COTCL .OC4E6I) , (DINSL DEHETID, 


PCH CLD OCF 15501, CENCE) OE 1Ge9), (OINTHO ,DISESI? 


COQUIVALER E CONTCLD TF OISWEDD CXSTRUCHTCEDD OXSTAL CMTIQ0D, 
DABROIN,CNTCS): , (BRHAX CNT 0419 VE SMIN.CNT (53), (ESMAX CHT CBI, 
SUBRPUAX CNT 679 CBRETIN CNT O49 F CS SPMIN,CNT (1709, (NSPHAX CHTCE@ID, 
SUXTYPE CNT ELON D, C0°COOE .CNT C1999, eXPCOOE .CNTI20)), 

SIXT COOL ,CNT(271), (XRCODE .CNTI2a)), 

SCCELCNTCA3ID ICTCNTE2200 , (CB, CHTISSO) CCO.CNTC SID CLO. CuT CSS 0? 
GCICPRLULCNTI 292) ,CTCPRLL .CNTE3999 , CTCPILT CHTE3ID1, 

TETCPNLS ,CNT C320) 0 TCPNLA,CNTI3309, 
GLPFTSCV.CT(20079: , ie FFSSP .CHCeC +89), 

DUBF IN CNTO%L 2), CBF MAX,CNTI%299, CSLUMIN,CNT(B1) 

A, CSLLMIN CNT CISD), CSTUMIN,CNTC152) ,¢STLM.N,CNTIIGDD 

B, COSKL PES ,06440) 9, COSKLIL LOOSE ED FOSTLIU, 014421) (DSTLPL Disa Si) 
C.ADGKPLED DISTd) CAPRIIDEDD TEIOTOHD 


REAL NGPTIIN .NSPHAX 


WT. CALC. ID=IC 1+ AREA, 2°4REA AND PANEL WT. 
1G = 101 


CeCeSEIUP PRINT 1D FOR PRIA, PRIB, PRIC, PRIWeere 
2001PA © MOI23) © IO FOR FRIA, PRIH. | .0°PRINTSS* 
o6e1P@ © NOC2N) © 10 FOR PRIB, PRIC. 1.0°PRINTS*? 


(Pa = OCt3) 
1p8 © OCt3) 


$F (OOC1D - NOOM) 300, 306,306 


*°1PA FOR NOOM GREATER THAN [°¢ 


300 IF 6 1G-21301, 304.301 


1F 1) 12893302, 302.400 


W2 IPA > OLN) 


60 TO 400 


Boe 1 C1P 62709305, 305 400 
303 1PA > OUI) 


0 TO 800 


°°1PA FOR NODHel¢* 


308 IF ¢1P629)2307,307.310 
307 1PA © NOUN) 


oo IPB INDO! ONL YDee 


BsO 16 0 1Gee- 29312, 316,312 
Bz IP 3290314, 318.800 
sie 1PB > MOVED 


@ To 800 


HG 160000311038, 318,400 
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Cre8G216 
CNSRO218 
CHSAS2ZI9 
CHSAC29S 
CNSTO3IO 
CHSTO310 
CNSTO3I2 
CNSTOSIS 
CNSTO3IN 
CNSTOSIS 
CHSTO3IG 
CHSTOsiI7 
CHSTOSIG 
CNSTOSID 
CHSTO320 
CnSTOT30 
CHSTOINO 
CNSTOSWL 
CHSTC3¥2 
CNSTOITN3 
CNSTONG 


CHS T0245 


CNSTO3NE 
CSTOIN? 
OsToNe 
CNSTO34S 
510359 
CNSTOTS) 
cn 10352 
os10359 
CNBRO360 
(NSRO370 
NS 10300 
OGR0s90 


O6INe Nh 


CARD NO 


ne 
is3 
Lh) 
18S 
is6 
WW? 
ina 
ins 
180 
is) 
182 
183 


Out LISTING AUTOFLOW CHART SCT - See 


anannnanannnaanaa 


500 


%000 
c 


801 


02 
803 


ola] 


803 
806 


407 


80e 


onaanann 


AT) 
ATT f 


us 
8130 


CONTENTS 


198 = OIE? 


S¢°SETUP REOD DATA FOR £DV. COMP. SYNTHESIS ee 


°C7 FOR M/SPAR DESIGN ONLY. 0.0 FOR M/RIB HD Fine 
FOH ID = ACCVID=3 AND ACID MUST BE © 2 FCA B/E 55° 


**CLEAR CNT ARRAY** 
00 4000 1°1,91 
CnTeh) © OCt3) 
CONTINUE 


C3 > Oxi! 

C7 © acKic 

Cee acne 

PFTSSP © DPFAHO 

PFFSCY = DPFRHO © OF SRHO 
Tope © OC13) 

TCPMLE = OC(3) 

TCPMLAR = OCIS) 

MPCOOE © ACSPIO 

IF CACSPID - Di2d) %O3.401 403 
TCPHLE © ACPNLI 

IF CACPRLID 402.402.4903 

TCPALE = CNH(4) 

YFCOOE = ACFSIO 

W (002) + ACFSIDD 804,804 400 
TCP © ACPO 

IF CACPLF) 405,403,406 

TCPMLE © CrHI4) 

MRCOOE = ACRSID 

IF 402) - ACRSION 407,407,409 
TCPMLR © ACPLA 

IF (ACPRLA) 808,408,909 
TCPNLR © ENHC4) 


*eeXKCOOE © la M/SPAR AND FOH OL Yee 
*1f FOH, XKCOOE © | AND XPCODE = 3° 
*C9.C10,C790.0° 
eFOH 10 © ACCVIO © Bindi) © Jove 
MKCOOE © O11) 
TCPMLY © OCIS) 
TCPMLL = DCIS? 
ce = OCis) 
C10 © OCI3! 
MF 1012) - ACCVIO) 4090.410.415 
WCOOE « O13) 
WOOL © O11? 
cr 6.8 
TCP I © 0C13) 
PFESCV © DPF RHO/DI2! ¢ OF SRHO 
@ 10 WO 


SM/SPAR-MC/PML. = XKCODEo2° 
MKLODE © Ot2) 
TCPMLU © BIC 
IF tOIC) WhEGTE Ste 
TCPALU © ENHIGD 
CO © TCPNLUSDINS/TNP IGE “DINAMO 
TOPPEL © OTCL 
UF COTCL® QED.4SIE 8136 
TCPMLL © CAMIN? 
C10 © TCPNLL DINSL (CNP IO? "OT NRHO 
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hI AD CNET MOO - 


CHSAO900 
€15R2300 
CHSR2910 


Ct5R0350 
CNSROWOO 
CHSROWSO 
CNSROWO 


rinse PevT LISTING MUTOF LO Clewt SET - SHEEP Wit AD EMPL MODAL - a 


ic 
CAR NO eee CONTENTS sere € 

3 

au3 c 

ais c 

ais c SeOMsSPAR OR M/KIB COVMR COSI Crusere 

a6 c *eSLTUP COVER OCSIGH CCIRTRAINIS FOR SPAR AO/OR RIBS** 

au? c *ICST COPGT 1D) FeM/SPAR, §62=m/R1BS° 

ave Ste UF CALCIO - Ochte G1S,415.416 

219 c 

220 ¢€ SeDATA FOR Me ALO? 

Ce 7) ¢ erstay AE LIK. © TYPE OF STRINGED UFR A 

222 c = 19h, 2eZ, Jet, Sonate 

223 WIS C7 © OCC 

ay WSTRY = ACVSTU 

223 IF CXSTRUD $190,.9150.9151 

es "ISO xSTRU © DIL) 

227 IS) MSTAL © ACVSTL 

228 AF (XSTRLD 4152.4152.8153 

220 4152 XSTAA = Dit) 

230 8153 GRNIN © STLEN 

231 BRUX © STL 

232 GHIN © HSTON 

233 BMAX © HSTMK 

2 OFnIN = STFHN 

233 OFX © STFIK 

2% SLUMIN = OSKLEU 

237 SLLHIN © DSK 

238 STUMIN © OSTLAU 

239 STLAIN © OSTLAL 

mo ¢ 

a ¢ **XTYPE © TYPE OF STR/SPAR ORIENTATION?® 

ae c @12CONGT NOS, 2°CONST B.4¢ 

™) € *USE STRCN--01393) FOR 1D SETUPS 

a ¢ ° 0.1.3 © CONST B, 2eCONST NOS? 

mS 416) XTYPE = O01 

a6 OF CSTRCN ~- 0621) 4160,417,49160 

a 8160 XTYPE © O12) 

ae 

ms ¢ #*eSETUP SPAR/SIR SPACING AND NO OF SP/R/STR LIMETS¢s* 

250 417) GSMIN © ONIN 

31 OSMAX © BHAX 

a2 NSPHIN © SNMIN 

23 NSPHAX © SNMAX 

ey c 

Ec] ¢ SeTYPE OF SEARCH CONTROL DATA--INPUT .B.NOS) OR SEARCHES 

26 c “IF SEARCH, TEST FOR CONST NOS AND SCTUP RAMGF (* NOS* 

27 ¢ 

ee c ONDS RANDE © FIGMIN.BAX, SPECIFIED NOSHIN,NOSHAX¢* 

9 c ° NAA © FCWCMIN)/BH4IN OR INPUT MAKe 

260 ¢ © WAIN © FUWCMINI/B64X OR INPUT MIN OR 0.3¢ 

al c 

ae SID IF CACSSIDI $20,420,440 

a3 S20 IF UXTYPE - OCLDD 421.421.4540 

tad S2L IF (NSPPLAX ~ NSPMINI 422,940,423 

ees S22) NSPMAX © NSPHIN 

286 00 TO 440 

e67 ¢€ 

2668 23 TTI1) © TBE) 

29 00 425 191,10 

270 UF (TBC both = TTCd2) 424,425,425 

e7 MON TEES? © TBWilel) 

ete S23) CONTINUE 

e73 id 

mm THER) © TTILD/BSMAX - OCD? 

@n THAd? = THCED/GESMIN - DCAD 

an Tess © Cris) 

a7 IF (TYC209 427,427,426 

en 826 TTI) © INTETTC209 

a7 427 THIS) © OCI) 

200 IF UTT3ID 820,429,428 

201 S28 Tika © INTETTIsN 

2ez ¢c 

e063 c *°COMPARE CALC NMIN,AMAX WITH INPUT NIN NAO ® 


oso? — 


337 


Wesut Listtrss AUTOFLOM CHART SET GTP WINS AND CHPOIREE MOE + 
eee CONTENTS oeee 
¢ USE LARCER OF MIN, SRULEP OF mace 
8290 1F UNSFAIN © T1040) 430,430,091 
830 NSPRIIN © Tie) 

431 IF CTTCSE + NSPHACD 432,032,533 
832 NSPRAC ® T165) 
833 1F CNSPRIAX - NSPMIND 434,840,800 
Sy NGPMIN » NSPHAX 
€ 
¢ 
¢ ©eSETUP POINT 10--APATIDIN-11) AO C12) FROM RSKPCI-Si eee 
¢ SOCE-TED © STATION DETAILS -O+7.) PRINT, LePRINT. 
c 44 CIRFOGLNL DATA 8° 
c *CENL DATA--FRINT ON COMPCE DAE OR 2 FOR 120d SET BY 
¢ e OBKPIS)« 
¢c STATION DATA--PRINT C1 DEKPCLIS2 OLY FOR 20d SET BY 
¢ ° OBKPIS) AND STATICS [POICATEO OY DBKPI2,3.41¢ 
¢ 
440 00 St fet, 12 
AMPATIOCID © Gre3! 
441) CONTINUE 
We OGKPI5) 
IF (NOOM - 8) 450,442,450 
842 APRIIDOT2) © OBKPII) 
¢ **STATION BO*e 
UF (OBKPA1) - 0127) 450,443,450 
443 DO 84S Bets 
we OfMPtTeth 
16 UND 445,845,404 
S44 APRTIOCHD © OCN) 
44S CONTINUE 
€ 
c 
¢ SeoTEST FOR M/SPAR OR M/RIG ALLYSIS¢o* 
¢ COLoMMIB, RMN/GPLACe 
c 
450 IF (ACID - OCS) 451,451,460 
451) CALL ACRES 
c 
00 10 500 
OOOnsSPAReee 
460 CAL ACLeTS 
c 49600 WEIGHT ANALYSIS¢+? 
500 CAL ACNSTA 
¢ OGR2920 
¢ SerPROCESS FINAL WIS. ADD NBD PNLI0) DATA, SETUP SUMS *eCNCR2029 
8900 TWICE) © THTCI) © THTISG? CNSREQIO 
THTL30) © TWEE3OD © OTTRACED CNSAZOT5 
oO BPO! f91,5 CNSREWO 
TUTE Dead © TWTC hound © THT eo CNSAZINS 
TCUROUSSD © TTI Touts CNSA2050 
O901 CONTINME CNSA2ZO55 
¢ cNSA2960 
TCULSM) = Tetisee CNSR2065 
TCAbNOs © THT CSD CNSR2O70 
THTCGOD © THTENOD © TWTESS) OGAZOTS 
THT Cede © MTINED © TWTISS) CNGA- 280 
c CNSAZE0 
¢ ‘ensr30co 
c CHSASIIO 
¢€ CNORS110 
¢ SUT OCLTA WF OINTO ELEXEMS NTS CNBARII20 
€ UPPER COVER CHSRII30 
TOR TWTCO) © ORCWPTWTCO) © THY tle? CWSREINO 
TWTE10) © OLCWeTHTI1O) © THTL20) O-SA3IS0 
THTIEDD © DLCMeTWT NN) © TWTIea) CHSRI1GO 
THT12) © THTCOE © THTILOD © THTEDED CWSA31 70 
c CNSR3I90 
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CAPO ND 


ESEse. 
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HRT LISTING 


c 


onana 


a nanannnan 


7000 


7H 


AUTO LG CHART SET - SHEEP 


CONTENTS 


(Oda cCOMR 

THTLE2) © CLCWsTHTeI2) © THTH229 
THTCLSe © CUCM etter s) ¢ THTI23) 
THTAIG) © RCM STMT CNG! © TWEE 
Wetadn © THTCISde TeaeTisd) ¢ Tre 


1-R1es 
THIS) © THTCS) © THT42S) 


TORQUE -BOX MISC . 


A 


THT¢Sd © THO) © TwHiee) ¢ THtizd) 


FRONT SPAR 

TWTdHS) © OELFSSTWT CIS) 

TUTCLG) © DELFSsTHTCIE? © THTIeS? 
THEtGr © THICIGN® Twris) 


REAR SPAR 
TMICET) © OCLAS THT CL 7) 
TMT CIGS © CELRS*INTLIO) © THTI27) 
THTC7) © THTCIOS© TwTtt7) 


oelEST FOR NOOK PASS*** 


PROCESS PIWOI/C-SEC ON NOOWel® 


WF «NOOM - NOIE)) 700.700, 790 


eeeeTEST FOR PIVOT CALC eee 


*IF PIVOT, SAVE TCHE-3N0) IN TSC141-380" AO CLEAR IC 


WF COVPVT) 701,701, 7000 
00 7001 161,340 
TSCeheuOd © TCCdP 

Tethys © OCt3? 

CONTINUE 


CAL PIVOT 


CeTOTAL WEIGHTS/AV. FO? WING. HORE, VERTO® 
(WT) ZAVe (WTI SIDE eK? 


K=1 FOR WING AND HORS. 


WINS AO REL MAE - 


CNSRII9G 
Crseseco 
CHIRS210 
CHSA 3220 
CSA 3239 
CNSR ENO 
NSS $250 
CNSR 3260 
CNSRIZ70 
CNSR 3280 
CHER3290 
CNSA3300 
CNSRISIO 
CNSRIIZ0 
CNSRII30 
CNSR F4O 
ONSR3350 
CNSR3360 
OG5R3370 
CWSR3380 
ONSA3390 
CNSR IVO0 


CNSR2920 
TeOP 2930 
TBOPZ0 
TROP2950 
teoP29c0 
CNSRI3IO 
FEOP33I1 
OSRI320 
CNSR3330 
THOPS HO 
OSR3T0 
O5':3360 
OGRIT70 
OGR3 380 
ONSRI390 
OBRH00 
CIGRINIO 
OBR II 


Ket OR 2 FOR VERTOF (ND OF PRESICIENIVI2 


. Ke2 FOR 1 PML, 1 FOR 2 PISS 


00 7010 3=1,149 
THTCEd © THIN OI22 AMVID 
Col AE 


SCCCSAVE TTC 1-500) IN TERR LOC CTts-100)eee9 


00 Foz 5=3,100 
CTChD © Twreld 
CONTINUE 


TEST FOR C-SEC WT CAC -- ID IN DIN@OISC-SEC WIOTH AT C.L. 


CNSRIWIS 
OGAHIS 
CNSRIW20 
CERMIO 
OGRA TS 
OGAN 8 
C683 
CNSR INO 
CNSR INN 
CER 
CGR WS 
CHSRINSO 
CSR IEO 


INTERIM C-SEC SUBR -- 10-14-65 --WIC-SECD>DELCS*HT/IN AT SEC. UICNSRIN70 


OO C-SEC. TEST FOR CAC IN SUBR 


CALL CSECH 


MPPLY CELICU, CL. FS, RSI 10 C 
00 718 11,2 
TSSCLo@s © OLCSUDESTSSi hess 
TSSU herd eoOUCS(eretsscioyty 
TSSChesweroOL CSc iB eTSSclelse 
TSSE1¢ 1G dM CSHN 7) TSS¢ 10169 
CONTINUE 
TESCLTD © DLCSELDeTSSitta 
TSSCLWD © CLESINDOTSSEI4? 


WF CTSSedey M27. 72 
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“SEC ELEMENTS WTS 


OGRWEO 
CGR WSO 
CNSR3SO0 
OsR7510 
CASRISZ0 
OGARISIO 
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CARD NO 


ce 
827 
a2e 
529 
830 


a7 


939 
wd 
esl 
a42 
Qa 


MPT LISTING MIL Cad CHAT SET - SHECP 


ne 
ny 


Te 


onan 


716 


aann 


reo 


onennanaana 


z 


Bi 


t}] 


CONTENTS 


*#0eCSEC WT. SAIA FRINT--SHE 1D AS PATA [Doce 
“SCT Mel FCR QUIPUT BY PRIDe 
OF CIPAD 71%, 7EN, 713 
Ne ROUND 
CAL PATH 


*oeTOTA Wits) DATA--OPM ¢ CELC oor 
WICSEC) © WESTRSF © MARIS? 
WTte3r © TSScl) © TSster 
THT(4O) = THTUND? © OCLWGCTWT CNS? 


*TEST EF PINOT CESICN® 
UF PIVOT, TOTALS OATA bre TSCiNt- 330), 
elf MO PIVOT, TOTALS DATA IN ICC1-3400¢ 
1F ¢OYPVT? 755,715.716 
TCLISLD © THTCNSS HVIO/DI2) 
TCEESO) © TCULSN) © TCURSEDOOTLG 
60 TO 720 


TSCd1G1d = THTIS) HHVIL/O(2) 
TSCOL MES © TSCURPED © TSCCIBIF*DLLWG 


#OCSAVE WT SUMPURIES SHT ARRAY FOR WODATA SUCR«e* 
CTMT(4O-G3), C4B-S2reise 
SMTCL) © THTCWO) 
SHT12) © THTIMID 
SNT(3) © OCC3) 
SHTIG) © THTCYS) 
00 721 tet,7 
GTI 100) © THT CT e4S) 
CONTINUE 


SAVE TOTAL HEIGHT DATA FOR SUTURY TALE PRINT -- TYPE D 


WINS AO CFO 


CNSR 3630 
CHIBI 
CHT RICID 
CNSR 3640 
CNSAI6S0 
CNSR3660 
CWSR3670 
CNSR ICOD 
CNSRIESO 
CNSR3709 
CNSRI705 
T@OP 3706 
BOP 3707 
TOOP3700 
180? 3709 
TeoPs710 
CNSASTIS 
CNSR37IG 
CNSA3717 
CNSA37I9 
CNSR 720 
CNSRI72S 
CNSRI726 
CNSR32<7 
CNSR37C8 
CNSH3729 
CNSR3739 
CNSRI735 
CNSRIMO 
CNSRITMS 
CNER3 750 
OGAITS 
CNSRI760 
CNSAI769 
CNSR3770 


*FOR BASIC CPM, SAVE TWTI1-39), C25-43) , 645-53), 167,70) CNSRSTTL 


FOR PIVOT CASE, COMPUTE OFLTA WIS AO SETUP FINA WT TALE 
PIVOT WTS IN TSS(26-5C) CCLTA OPE THTCN-S0I C-SEC TSSt1-25) 


SeeSAVE BASIC WTS ON RCOS 184, 185, 106 FOR GHi1.2,5988 
FINA LOC FOR SUBR PRID WILL BE CO1400-E99)¢ 


00 753 11,50 

TSS¢0eS0) © TSStT) 

IF Gt - 30) 75t, 751,753 
SSC) © THT) 

IF ¢t + NDI) M2.752, 753 
FES(19}0) © THTIDeS4 
TSS(1039) © THWTELeeND 
CONTINUE 

TSS(N9) = TWT(67) 

139150) © THT170) 

We = [GH ¢ 183 

CAL WRITMS (1,75502),100, 164) 


CHECK FOR DELTA PINOT CMC 8 6CLEAR TSS.TWT (1-50) 
00 755 11.50 
THTGEd = OCt3) 
TS$S$01) © OCC) 
CONT IME 


IF COVPVT) 770.770.7650 
00 DELTA WTS 
Cal Pvt 
PHT E3) © T5128) 
@OMESET TCU1-3vO) FROM TSCiNt-3OOIe" 


00 781 191. HO 
TEtid © FSCelewos 
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CNSRI7OO 
CNSA3790 
CNSR3800 
CNSR3BIO 
CNSR 3820 
CNSA3930 
CNSR36NO 
CNSR 1850 
CNSRIOSS 
(CHSR3860 
CNSA3O70 
CwSA38B0 
CNSAIE90 
OGRI095 
CNGRI900 
COSRIDIO 
CNSRI9IS 
CNSR IBIS 
CNSRISIT 
CHER I919 
CNSR3920 
CNSAI930 


£ MOLE - 


a 
O6/tNl ee? LISTins MUTOFLOW CHART SET - SECO bles AN COPLIIAE WE + 4 
CARD O ove CONTENTS. esa 3 
«8? Fat COT INE CNERWOSO % 
awe ¢c CNSANO6D 
an ¢ WOME DELTA WT KOPUARICS CNSRWO70 
$00 c SAME CHRCOS 167. 100. 189° CNSRN OBO 
$01 ¢ OF INAL LOC FOR SUDR PRIO WILL @E CO1B00-10991¢ CHSRNDIO 
ge 7% 00 771 1=1,50 CNSAN 100 
303 TSS¢0eS00 = TSSeh) CNSR TIO 
ad TSSCEP © TNTCLD CHSR 120 
303 ‘771 CONTINUE CNSAY 130 
506 IF © IGH © 186 CNSR S40 
907 CALL WRLTMS Ch. 1SS000, 600, 1F > CNSR ISO 
908 ¢ CNSAY159. 
$03 c eeePiVOT WI, OCLTA WI PRINT--SNE 1D AS FRIA 10s CNSAY 160 
$10 ¢ SET Ne2 FOR DATA CNSAN 170 
ou ta SET Ne2 FOR PRIN PRINT--TEMP--- CNSAY 160 
st2 7e0 Ne NDI2) CNSRN 190 
S13 UF 4OYPVT) 763,783. 781 CNSRY200 
SIN Fei IF (IPA) 703,703, 782 CNSRN210 
sis Fe2 CAL PRIK CHSRYZ220 
$16 c CNSRN230 
st? c *eSETUP NOON! CKIT. TEST FOR TYPE A PRINT*? CNSRY2ND 
sie ¢ COORESET VHTIL-100) FROM TEMP LOC CT¢1-100) FOR FRIA PRINTCHORY250 
si9 783 00 Fe 161,100 CNR 260 
$20 THYCED © Cred? CHSRY270 
a2) ‘Fee CONTINUE CNSAN280 
#2 ¢c CNSAN290 
a23 ¢ @eotEST FOR OLSIGN SLPRUARY DATA--TYPE A. NOCdel eee CNSRY 300 
sm c ef NO PRINT, SETUP STIFFNESS DATA IN CO(1-109), CNSRYI1O 
25 € e FROM RCO SO°* CNSRY 320 
326 c *4f PRINT, ACPRIA WILL SETUP COLI-4OODe? CNSRY 330 
$27 IF C1PADd 705,785,791 CNSR HO 
see FAS CAL READS 11,C0111,400,40) CNSAN 350 
s2s @0 10 799 CSR 360 
$30 c OSAN 70 
a3! 8 eNODHR2-5--TEST FOR TYPE A PRINTSCe CNSRY 300 
332 700 «NF IPA) 799,799,791 CHER 390 
$33 Fal CAL ACPRIA CHERRY O00 
sh c CNSR 10 
353 c CNSR9900 
336 ¢ oootxttiore CNSRODIO 
$37 c CNSREISO 
ss 
339 
moO 
ww ¢c 
We ¢€ ees eSUBROUTINE ACLOADS s+ ee 
WwW ¢ DESIGN LOAD DATA PROCESS - ADV. COMP. ANALYSIS¢** 
ws ¢ 
™sS CecsvcvereescuvacscsceseersaecaveccceesesceesssieereraceseeeesueecuarueET® 
on ¢c 
Ww? SUBROUTINE ACLOAD ACLO0010 
we ¢€ aLo0s20 
we #eATR LOADS DATA PROCESSING SUDRTSe #000030 
“oO aL.000080 
“I COPPION 112060) 012060) .CO1 2000) NDI 100), THI900) .CT(20v8) 4.000150 
we COMPON /IPRINT/ [91000 aL00015! 
wi ¢ 4.000160 
bad DIMENSION DC6100) ,ISECI300) .TOGHIIID. TTIW), #000170 
ms SPORE ED .WPNZOL1 1 WANZCDTT,ZNNMCITD, #000171 
ty QALPVELLD AC PRICED) ALIVEE DD ALAC, 4.000172 
"7 weaenci2s, TACIT). TOI3O0 TANDIG) ,CCLOCB) .SINDIG?.COSOIG?,  ALOO0I TS 
we OPNZTCLUD ZMNTCDL) ALPTCLED ARNTODDD, A000! 
™ DOOM 1012) ,HBOL 200) ACL £950) SEMPC20), M0001 
10 OTFLOCIO), AL0001 78 
bd FTLOLIG) ,OCOL IIB), 4.000177 
wz ersTactil) 000: 78 
963 c a.c00180 
bad CQUIVAENCE (OCH OCI IEDD, CTSECEI' COCISOLID CTOGMIE2, TEN3OI), ALOOCISO 
wm ROTTEN) TEUEL 794, CYSTACUND, TSECIIGS) .(OGHO,D1 10500, 000191 
“s 2UPZ DIGS) 2Z DSI}, IDALV.O125571, (OALCP 125679, 4.000192 
7 SIDCPCO,062579 1, MOCPYL .DF29319 , (OEY V.012321, 4.000193 
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Osis ev CISthese Ail CHART SET - £-eP WINS AO COVELL MOLE 
Caro ND ooee CONTENTS ra 
SEAGS.OF23502 (ROM OF23CEI IA SIR D237 SACS! CSN, KOTO 
SUPT LE OLZEOU)  CVPNZUTD OL STH EL EMEP DIC TSah SHEP DER DACIOIS 
GP CVAD TA22 P CCCLOCED PeGSt be eSktacdy Tetecee, A000195 
PUMLPVEDS FAS Setd CAL PMEED TES Sd) CALNE LD ISTE DD CAME) Pe OMIACIOIGT 
O), (CKO 01 3921) 0.000198 
¢ #000193 
CQUIVAEIE HBOS TELA) AEST PULSED ECHR TCG DY LICK Tern, M0D2200 
CECTIP VCS 7ad CTA T3600, TA.O(29001 (CECEAC LST Fb, ACD2201 
ZICALNESD DeZ2000, CTREND,TENSCTOD ETON TULOOLI EA OGL 202 
SUPNTTCLD OCHO TT OVseZIII, ML0D0263 
SCALPHOGD TAG77I) ANTONE TAKES Sd, M00C204 
SUCOSOHLD TOIhGIE CCOTEA, THIS 20) CALE OLe3ot, 4.000205 
BINPAGE 1516592, UNTSEC NOLES, a.onoe0s 
DUN MOUSE CK 1OCIOTI OL PON2GID TLIO POCSedd, eV EE POCONt acmo2ecs 
€ m000210 
EQUIVALENCE (WAAL IDIND CO0522°) DOC) COIE CoN, aLon0220 
UESLOLO OF 2050) ATER CL Crecocses, AOCO221 
QUOPNZ T2009 COST T2909, 6G 50D OC LOSd UTOS. DOE Sd, AL000222 
BIDATI D6 2090) 1VTID O(CO9hD, m.000203 
METFLOCED TAGS tad CTTE ED Teas yee, M000200 
BCOFLOL EL) 001592), (OCOL1E1) OLIE7IF, aLo00270 
BEACLAL) .CTCED)  CILCASE AOCWTDD A.000279 
¢ #000230 
¢c AL000240 
c e@eeTEST FOR TYPE OF LCOS CAC--IIFUT. CAC &1 AGAD CR = =A0C0L50 
c SETUP BY BLCNTL Oe? 2.009260 
¢c CLEAR ACL (1-900¢ #000270 
300 00 301 f*1,900 000280 
ACL(T) © OCS) 4.000290 
301 CONTIIAE 4.000300 
¢ 000310 
€ PCLEAR WHVLIO11-24)-1 OF LOADS 10° aL.000320 
00 302 Jel. 4.000320 
MITT © OCIS? acoo we 
Bo2 CONTIN aL000350 
c AL.000360 
IF ¢&.010) 340,310,320 000370 
000330 
c COCSET UP THO LOADS OLY TEM NauT SETeee 41000390 
31@ 00 31) botyes 000400 
acuity © ALPVETD 4.000410 
ACLCLOIEy © APMED A.000"20 
ACL (1022) © MPTILD 000436 
ACLILe33) © ANVIL) ALOOONNO 
ACL LeNed © ALAM TD aL.00045S0 
ACL 11055) © ALNTULD #000460 
310) CONTINUE A000" 70 
¢c 000480 
ACLIO61} © DPNZ AL0D0490 
SCLIG62) = OFNZ #000500 
€ 1.000510 
00 32 tet,2 4.000520 
aCLit+680) = OAT! 4.000530 
MEL (1¢700) © OCI) ALO0OHO 
AL tthev20r = DU 4.000550 
ACLILOMO)D © DIN) a..000560 
ACL t10%O? © OCI) 4.000870 
ACLite7BO) © DItt aco00sao 
ACL11¢800) = TOOK AL.000590 
ACh (198209 © OND #000600 
Biz CONTIN 40.0006 16 
€ #000620 
¢ ew OF LOADS=2e° 4.000630 
ILCASE © WOL2) AL.000640 
¢€ 000550 
0 To 380 0.000660 
c 8.0006 70 
€ SPOLOAOS CALC BY BLCNTL ROUTINES--2% SE.6 ON RCD 160-183°°AL 001000 
€ “COND. CALC 5D ON ACO 159--USE COO 1-23. BUT 20 maxes §=ALOOIOIO 
637 c #001026 
ox B20 CALL REACTS 01 OM IDE) 2,199) &.001030 
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ee ee ee 


O71NI GPPUT LIST MITCELCW CHART SET - SETH WRG AD LA MAL - 


cap wo seen CONTENTS weno 
639 c MOOI ENO 
640 c 001059 
or c 4.001069 
wz ¢ VERT .CAL TAIL LOADS SHOULD EL A SET COUN AO OFPOSIIE 
+3 ¢ LOADS. THES SECTION WILE OF 2ST THAT WITHOUT RURNING A COPPLEIC 
os c OCW SET OF LOADS. OPE CXCEPTIC. IS HER DERE IS ACTS TAIL Tex 
O55 € THE SET OF LOADS WILL ME TCD CAPLET FOR THE OIMERSICN 
6x6 € STATEMENT . SOME IME LOATS SETS ARE POUTIPELY ELIMINATED 
7 c IN THIS SITUATION. 
we c 
9 IF ¢ DEZOON > IO. 3680, 3805 AOL 1083 
630 Two? 8 
Cty) 6 To 3530 
sz WSN 1b 
“3 F530 W.CASE © OCL3) 
on 00 3790 NNW) .23 #001089 
655 Wenn M.00108%5 
oe If ¢ VIL 1 3800,3800,3690 aonics2 
657 3600 IF ¢ 063570) 3500, 3500,3505 001062 
ose WSN © AWN acoosoe2 
ws F500 IF ¢ HAMLIDIND) 3790,3790,32 0.001091 
eo 321 WCASE = ILCASE « NOCD 4001100 
1 IL Ne 159 4.001110 
“62 CALL READMS (1,W8001),200,1FLY a.001120 
3 c 4.001530 
ow c “TEST FOR TAILS AO MOVE LOAD DATA TO HIND LOC IF TAILS*AL001140 
os CHECK = 0.0 4.001090 
eee MAT © 0.0 LOO INS 
“? WF ¢ VERDd 32tu,3210, 3208 M001 42 
eee B2i1 VERT = 1.0 001143 
- R210 K = 136 a.cor iso 
670 IF CVTIOD 322,325,323 001160 
o7 322 K © 83 40001170 
er 323 00 3 Sete 001180 
673 vekel 4.001190 
6m $BOiT 930) © MBOI UD 001200 
64 Bey CONTINUE A.001210 
6% c 
677 iF ¢ VTIO > 325,325,3605 mo0i2ts E 
sn W5OS IF 1013579) 325,325, 3510 aconi2is : 
67 BS10 ACW © INT(H00197100.3 MO0I2ZI2 
400 Ae INTCACN/100.> m.ontzt3 
oe A= 100. ¢a 001213 
eae Mie AN - A m.00121% 
6e3 If ¢ MO 166. 18 1 GO TO 325 aL001215 
om IF ( 64 .G£. 1 1 GO 10 3282 m.001216 
ees IF € bed .GE. LY 9 GO TO 325 001217 
086 CHEEK © 1.0 001216 
7 ce Le. 1) CHECK © 0.6 mooie 
eee ¢ a.001220 
eos ©OMOVE V.M,T--STORED TIP 10 ROOT IN BO ARRAYS? 4.001230 
ose c REORDER 30 ROOT-TIPe AL001280 q 
1 325 Ko MLCASE 33 -33 8.001250 
one 00 3250 Fett 4.00: 260 
693 teKel #001270 
om Je MOCHPEENOUI2? = 92 + HOLT? 4.001280 
Ce] ACLILE © MOIS) 001290 
63s CLILed ED © WBOC Ie S2I 4.001300 
7 ACLILC22) © WHOL 033) 001310 
ose 3230 CONTINUE 4.001320 
ove UP ABSCACL (Kot) POABSUACL (Ko L211 ABS CACL (KoB3) 1-100 4.001 321 
700 | 3252, 3252, 325) 001321 
703 3252 UCASE © SLCASE-HOET) AOI lee 
voz @0 To 3790 4.003323 
73 ¢ 001330 
Nw i4 ooSZTUP OEM DATAS® m.0010 
™ ¢ ALOOL INE 
76 cd eeeTeem F UX FOR DELTA FUBL/COL SEQUENCE se M001 382 
7 3250 IF CCHECK Db 7515,3515, 3820 001331 
20 Whee Femi 2 ABS ¢ ACLILPREV © 110) 001332 
70 FZ © ABS CALVO E OF 4.001333 
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Gs IE 


CARD NO 


ne 
muh 
ne 
ny 
me 
1S 
76 
wn? 


™9 


SIIIIIIIAII IFAs eee AeA aa eagazsaysaa 


WPT LIST Lee 


7 


331 


337 


wo 


wy 


CONTENTS. 


CHECK = 6.8 

Woe Fmee LT. GMX FCO TO Bete 
UCASE © ILCASE + 2 

Go 10 ks 

WBO1I9Is © OFLOICS? 

B01 892) © FLO?) 

WBON IED! © OCOL HIS) 

WHOTI9O) © DCH 


NZ, TER, ROd, RELI, WELZ, ACOLI, ACRES, 1OGW, OoWe 


ACLUILCASE*760) © =s001er 
ACLURLCASE G40) © WBOIT! 
ACLUILCASE*$00) © BEDIOLD 
ACLCILCASE B20) © BE DC1G2) 
ACLOUILCASE +8601 © 8521184) 
ACLUSLCASES890) © bBOIIES? 
ACLUILCASE+EGO) © 590186) 
ACLUILCASE* 700) © O11) 

tf cvTior 326.7 - 73 
ACLUILCASE*ESO) © 66011879 
IF (601209) 327,329,329 
ACLEILCASE* 700) © -Ot8) 
GO 10 3e9 

ACLUILCASE*€80) © W801 168) 


e*SETUP DELTA FUEL AD COL CONST AUTS¢* 

ACLUILCASE* 720) © THLOGI) 

ACLEILCASE®WO} © TELOI2) 

ACLEILCASE 760) © Ott? 

ACLUILCASE* 780) © DIL) 

WF CVTtOd 370,330,370 

ACLEILCASE* 7601 © O11) - B901189) 
ACLENILCASE* 790) © O11) - $290190) 


FUEL CONSTANTS* 
IF (690110499 370,370,332 
ACLEILCASE* 720) © DED 
ALLUILCASE*MO? © Ditd 


eTEST FUEL CELL-1. O=ND, SevES¢ 
UW ceBOC Git! 332,332,337 
1F (6061921) 370,370,333 


FUEL CELL 2 OLY. NO CHASE IN FUEL CELL 1° 


IF  TFLOCOd) 370,370, 35% 

THC) © TFLOLO> - MBOTIEW DI2? 

MF CTTC20) 335,336,336 

THl2a © OCt3) 

ACLUILCASE* MO! © CFTI2) © TELOVIONS/IFLOIB) 
00 10 370 


CELL 1 OR 2. CHECK I FIRSTS 
IF (BOC USI) - OC2d0 338,366, NS 


“SMEG INCES1.2. CHECK FOR FUEL IN CELL 11° 


UF CTFLOI79) 332,332,339 
TUGED © FFLOIT) - MBOM IEW /OL2) 
4F CTHdg0d Wes, NOLO 


oceLt 1 OMY? 
MELEILCASE* 720) © UTTE1) © TFLOCSII/TFLOIS) 
@0 10 370 


oCELL 1 AT ZERO FUEL. TEST CELL 2° 
Tri2) @ TTC} 
Wea © CCE}? 
OF (8018820) HO, 34D, He? 
OF CTFLO1821 WO, HO, HF 


MUTOPL OW CHART SET - SCTF 


WING WO CIPEIAGL ME + 


MODIS 
4.001335 
AL 001336 
4.001337 
MOOLK2 
AL001 3 
MOOI ING 
001345 
ALOOL HD 
ALCD1350 
4.901360 
4.001365 
4.001370 
1.001390 
4.001381 
001302 
£001 390 
aLO014Oo 
001410 
AL0O1420 
4001430 
M.001440 
4.001450 
ALOD1NEO 
6.001470 
a.001480 
4.001490 
4.001500 
4.001510 
M.001£20 


M.00150 
001550 
ALOOISEr 
4.001570 
40001580 
#001590 
a0.001600 
AL001610 
4.001620 
4.001630 
A.001640 
9.001650 
4.001660 
44001670 
4.001680 
#001690 
4.001700 
001710 
40001 720 
4.001730 
ALOOL MO 
4.001750 
a.001 760 
4.001770 
#1.001 780 
A001 790 
4.001800 
001810 
001820 
#001830 
ALOOIENO 
4.001650 
aL001960 
4.001870 
4.001900 
81.00! 890 
accore00 
ALOOIeIo 


“EXPEND FUEL FROM CELL 2. 1512) © AMOUNT 10 BE EXPLNDEDALCOIS20 


TUS) © TT2) © TFLOCOD 


2564 


001939 


POUR TIE SUR nUL etree pe RT PIER AORE TLE LINE PAPAL TLIO LD FLITE SLES INES, RE IL 


taba) 


Camm +O 


SETI TTIILL TIFFS ETS SRSETSRESTSRERS S 


INPUT LISTING AUTOFLON CHART SET - SHEEP WING AND CPPTNAAGE MODULE - 
eeee CONTENTS. eee 
TF ATEIR2) WS HS HS ALOOIIGD 
Bes Tria) © OCI3d a0.001959 
eS ACLEILCASE © Od © ETTI2) © TFLOCIODI/TFLDIG? 40.001 960 
@ 10 WhO 4.001970 
¢ 2.003980 
SEQUENCE S21. CHECK FOR FUEL IN CELL 2¢ 4.001990 
PS IF (HBO11S21) 399,338, 7 aL.002000 
We? AF CTFLDIG)) 338,338,008 ac02016 
BO Ti2) © TELOCeD - MBOLIM DIZ) acoze20 
UF CTTC2d) eS, 336,338 007030 
WO Trelb © Trea MOO20+0 
w1¢e) © OCt¥) £.002050 
ac.cn206o 
«TEST CELL 3¢ a. 002070 
IF CTFLOCTH1 336,338,350 accoz0Re 
WO OTTCND © TTChd ~ TELOCTD 002080 
UF UTTEI0) 381, SS 4.002100 
Wi OTTIa) © OCI m02110 
@0 10 WS 1.002120 
¢ 002130 
€ -A£.002500 
¢c @CCCHECK NO OF CASES BEFORE LOOP s+ 2.002510 
c OTP iG TARE MaKe monrs2e 
Bre oF CILCASE - 201 37¥, 380,380 a.002530 
¢€ ML ODEMO 
378 IF (VTIO} 3700.3780, 3800 008558 
3eee IF (VERT) 3790,3700, 3805 9.002561 
3005 VERT = 0.8 ACORME 
TWACAGE © ILCASE ¢ NDCL? .00e3s3 
IF ¢ ILCAGE-20) 3702.3782, 300 m002s 
B7ee 00 3781 I © Itt 2.008335 
Je NDIGbET = NDCED A.00?PS38 
MBOt J031 0-401 Jo 31) 4.002957 
MBG 1 Jo BBD 0-40 We BZD 008958 
SPRL 101 Jo 3330-401 Jo 33) L.00e358 

@0 10 325 

3780 LPREV © ILCASE* 33 - 32 2.002361 
c #.002560 
aL.c0 3000 
c CCGA ACL ARRAY ON RCD JOeee 2.003018 
BOO CALL CRITE (1 ACL 011,800, 30) 003020 
4.003030 
€ Cosk TUP TEMP (1-20.+¢ AL0DI048 
©O 381 191.20 4.003050 
TERR CID © ALLO) +680? ac030ee 
381 CONTINUE ac0307e 
ce ALODI08S 
€ 2L.00 3080 
14 eeeTCST FOR PRINT--1P 19¢¢¢ 4.003108 
¢€ PRINT CESION DATA SUfURY® 4.003110 
1F (370103) 302,382,908 acos126 
BOP WADE © WARE © OI? 003130 
CRITE (6, IBIINCASE ,MPADE 4.003140 
383 rommat 116M CAGE IS , 725 ,SOH-9°-BaSIC LIMIT AIRLOAD DATA--a0V CALOO3IFO 
SOPPOSITE ANAL YSIS-*¢-, 1100 SHPAQE.I4.//108H0 COND TOON 4.065188 
@ oo OEL-fL OEL-u 1 Tew ou OFL.40.003170 
R aco «6am 2.003100 
We romul (79.1 .2F31.0 OF 0.1.78. 3.78.9. 8.8) m.003190 
€ aoni2ce 
OO 305 ml, Car monse18 
RITE (0, Be FALL (ioGeO) , ACL (NOROR) ACL (NOBRO] ACL (NOBEO! ACL INCBBOAL COSZES 
19 ACL ENCOOOD ALL (N¢GBD) , ACL (Ne 700) , ACL (Ne FROT ACL IMe PO) ACL (Ne PROAL COS SO 
2), ACL he 780? AORN 
3S (CONT IMA a.003z30 
¢€ acnizes 
¢ CeTEST FOR PRINT OF PROCESSED LOADS--1P Oe 4 001266 
(F C1Pt20)) 3S, 386.398 am0032 76 
388 WRITE (6,387) mcDsee8 
387 FORMAT (OHI =9°-DESION LOADS SUPPURY--ACL ARRAY--IP 20-¢°- ,AODIZDO 
see atu #003300 
pe me ee a #003318 
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OO71N/% beePut LISTING MOL ON Chua Sf! - SEEP tN AOD CPENNACE POOLE - 


cao NO see CONTENTS vate 
ez ¢ #003320 
3 OO 388 Nel 660.6 4.003330 
tJ Kee mrs MOO3MO 
“ss WRITE 16, SOON CALL ES) PoNK LED aL003350 
s 3d CONTIN 2.003360 
7 ¢c &003370 
we eOExites 006980 
mm 004988 
oe MOOrO99 
a 
ee € 
es c eee seQugROUT INE TEMPC seees 
td C = FOCMATERIAL PROPERTICS CVA FOR ADV. COP. MATERIALS *°* 
7. ¢c 
eae Cees 
7 i4 
oe Ceoccccccgvcavecesesssesseserescceeercasenscesrsresesseseersuscscetecres 
oe ¢c 
en SUBROUTINE TOC TErP 0010 
en ¢ SCCOMPOSITE MATL LAMINA PROPCRTIES Terrcoz0 
en € 
e73 ¢ e e e e e ° e e ° e ° e e e e e e 
7 C SUBROUTINE TO CALCULATE LAMINA PROPERTIES AND ALLOHARLES 
fy} ¢ e e ° e e e e e . e e . e . e s e 
Lp] c verr0030 
en (@eon 1:9168) TEPPOOND 
™- COMMON SIPRINTs 1P180) 
mn c Tero0s0 
eo OLMENS 10% 012060) ,COL2000) MOL 100) , TH(900) .CTI2008) ,THT (NOD), TEPPo0sO 
1 IENHIG) EMP CO), Terwro0s1 
oe BPROP 67> . TEP (20) ,TC1S.7) 0120), Toros. 
os WC 6 5) TENG IC4) REFSTELS) REF STOWY), TEPPo0ss 
wm QCFMTL 15.3) .FOHCY(20) FOE (20) OKT G20), Terrcos, 
os SEpoTIze), 
os WDC 63) 1S. 20) E520) Torrcces 
a7 € Toro07e 
on COUIVALEMCE (DUT), F20619), (COED, TUMI212) NOCH, ThGI209D, Terrooeo 
oe ACTMCLD TEG2ZUID CCTLTD TCSII CTT UL) COCTIONDD, TOP o08! 
o80 QIDM CLD DEL ISSID , FEMI) OFF 1Gdd  CTCON ED OCT17OI2, Tero0s2 
ol BI TEMP CLD .CT¢2O03)) , (PROPCI1) T1300), Torrooss 
oe EEE 89 TEGONDD COMED ED THC POLI, Terwoo 
os BUEN 10)d CVI POvT)1 , 16019 .CT6202309, Toroces 
om GLO EE 0D THe O71 CTE IGIOND , Tee 7S)? jTercces 
on TUREFSTE CLD THLE) CREF STOCI) , THCBISID, TerPo0e? 
os GUNCARE .20168)), Torodss 
oa? DC TLCABE 0119), INDEED. TISI2b de ToO}n0e8 
oe ¢€ Terrcose 
oe COVIVALENCE (CFMTLEE,1),.0(800)), (CFBMU,01S95)), (COCY 0:98), TEPPO100 
oe CCCTBE et 2)) , (CFOS eT), TOrPoe! 
001 SUCTION OLN3td), Towro102 
oon BICBOT ET». T1G18)), (PT OCIS), 
ez DEFOMCVE DD, TEC 17D, SFOMFE CL), THOS ID), (FOOL) THIBOIDD TOPO108 
wm ¢ Toros 
Ld UF GENUS) 61 .0.0)ENP15)0-EhP 8) 
oes ¢ 
7 e @°TEST FOR MATL PRINT--IP{1GI¢¢ 
0e8 206 IF CIP11O)> 201.201 228 
we € 
oe 20) BRITE (6.202 CAGE 
on WATE 66.203) 
ete eee Frormeur Mie CARE 18 62H = #¢-TORQLE-BOX MATERIAL DATA--AD 
os SV. COMPOSITE DESIGN-*°- .6x,20H** TEPC = 1PLIG) oe) 
Oe ¢ 
os 203 rol (emO LOMO ID TL. a ti oxy 
oe yay rw rw rw) 
7 Pee a es ed ee See ns 
oe € 
oie 220 CONTIME 
we e 
ii] 00 & LCAME et, ILCASE 
we WF (TEPPULCASE ME. 78.61 60 TO 6 
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CBs asm 


CARD NO 


SSSR FE 


931 


937 


UPUT LISTING MUTOFEC aA CHART ECT - SIECP MINS AO CHP ENPRAGE MOMLE - 
sacs CONTENTS. oeee 


| fos ay Wer ese ce! Me Se jee Pe oie) oa "es i Nes ce axe 


C OF ThMP= 72 DEGRIES. PROFERIIES APE THOSE OF ROOM ILE CRAILTE 


€ 
00 7 tel.7 
7 PROPL LEPC 
oo 108 
© CONTINE 
€ 8 @© © e ¢ © # e# e e © @# © sb e@ ee 8 


C INTERPOLATE TO It PROPLATIES 


MLSINTCTEPPILCASE 7100.3 
FeTEMPILCASE1/100.-FLOATIN.E 
Mente! 
NUN ol 
00 1 191,7 
1 PROPCTDOCNPCTIOCTCUR Eber CTC eras. dd TCcrk aN 100. 
6 CONT IHL 
GILCASE be PROP 3) 
X91. -PROP 64) 2 °2*PROP (2) /PROPLID 
¢ e e e . e e e oJ e « ° e ° ° ° oJ e 
C CACUATE LAIINA PROPERTIES 
¢c 
ENOC1 ,.LCASE } PROPEL 1 /XX 
ENQ(2 ,LCASE 1) @PROPL2) 200 
ENQI3 .LCASE )=PROP(4) PENDI2.LCASE? 
ENOUY ,LCASE D © 25° ENO TL CASE CENQI2, LCASE 292. £10003 LEASE 202. *PA 
20r¢3ioo 
ENOtS .LCASE ©. 25 °CENQUL .LCASE DoE NO12 UCASE 202. C4ENOTS LCASE I -2. °PR 
20P(301) 


CALCULATE LAMINA ALLOWABLES 


oe 


ENX1D ,LCASE D=PROP CG) #2. SENPIS? 
ENKI2 LCASE © PROP ISH 92. CEIP LO) 
OKC 3 .LCASE 1 oPROPUT) 4. PENPI9D 


C9 CBUCKLING CONSTANT FO? STR ove 
EDOTILCASE) © PEZI2.0*P2e(SORTI: 2201 LCASE) CCNQI2,LCASEI? © EHO3, 
ILCASED © 2. 0°GILCASEH) 


TEST PRINT? 
IW CiPC199) 22k 220.2 
221 WRITE (6 204 LCASE , TEMPILCASE) (PROPEL) 090.7) 


¢ 
2 CONTINUE 
¢ 
C CALCULATE HONEYCOMB PROPERTIES 
c 
ENC CD DO2. PENH G) CENCE) ENHIS) 
WOENC CD ZENE LD 
EMC 2002. 13°xKer WES MENNI2) 
IF (XX- .0338)3.4.% 
SENS bee. wSommKerl Se cENN 3) 
eo 105 
© EMCI 3) ©. WeKKeEN 3) 
3 CONTINUE 
¢€ 


eeTEST PRINT OF ENC WO ENQ ARRAYS** 
(Ff CIPCIS)) 230,230,100 
230 4.08 16.231) 
231 FORMAT 611040 LOAD 10 tNOch? Dar oa) ENOCe) 


1 [nQt5) Enoceiy Crea chet Cieotr ob 
232 FORMAT OPK, 12,SK FS. 0 FUE UF IO. ere bk Oe. a) 
c 
00 233 fe" ILCASE 
WRITE 6O. 23201 ENO09, 0) ENQC2, 0) NOI, 0} ENQ(4,99,CNOCS. 2) ENKED, 
SUD ENKI2 ED EMTS. EP CBOTE ED 
233 CONTINUE 
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aaa KG 


CYA bial 


Cano 10 


137 


(PVT RESTING AITO LOW Ceeit SEt - SACP WI MO CIP LH ATE Pele RE = 


seas COMIENTS. 

¢€ SePRINT MEADIIGS Fit RIF Tew GATAce 

20 WRITE 16.281) 

€ 

21 FORMAT 16200 -8-C 1 PROTRTICS FOR STUPFIESS CACKATI 
1ONS- 59-771 10H ttn Te. at oxy Grace 


au Cnocr2t | ENACT) cna? ceaces) Onect6) 
¢ 
Q2 FORMAT CicH ST. REF. FTE AEN LO a ste 
Red PORT C2 FLUT. REF. TEP UZ EDO. sd 
ON FORMAT OJON FLUT/OOTN. 7.2 IS NEB UO DSP) 
ONS FORMAT C12 FLEXK/LOAOS.F 7b, Wee. 2 FL FO. wa 


€ @seCALC ENOC PROFEATIES FOR STIFFNESS CALCes? 
100 00 109 Nel,% 
00 1005 [-t.6 
ENQCC1 © 0.0 
1000 CONT ITAE 
€ 
OO 101 19,7 
PROPIE) © ENPCI) 
403) CONTINUE 


WF CTEIGIENDD 102,109,102 
to2 IF tTEIGscNr - 72.0) 103,105,103 


@OINTERPOLATE AT SCPPiNte? 

103 MM © INTITELGUIND 7300.03 

6 © TEIGIINI/100.0 - FLOATINLD 

meme 

wenmel 

00 10% t91,7 

PROPPED © CPPS eCTCIM Bd © FectCuay bh = Tim $001 7100.0 
104 CONTINUE 


POCALC ENOCII-G) FOR EACH TEMPee 
105 XX © 1.0 - PROPIN)¢*2°PROPI2) /PROPULD 
CHOC ULLND = PROPCID/XX 
ENOL (2 ND © PROPLZI 7X 
CMOCIS.NI © PROPIS? CENCTI2,ND 
NOC 4ND © O.259CENCLUI,ND © EPQOCI2.N) © 2.081 I ILN & 2,0¢PRO 
wPagoad 
EM CISD © O.254CENOCEE ND © ENOCIZ.ND © 2.0¢1ENOCI SND - 2.0°PRU 
Wazoo 
ENOL (BHD © O.25°1ENOCIIND © EPOCI2.M) - 2.0° ENOCIS.ND D 


¢ 

¢ SeSAVE AEF £ AND Gre 
REFSTECND = PROPLD? 
REFSTGIN) = PROPIZ) 

€ *eTLST FOR ENCO PRINTS? 


1F ChPCI9b) 2460, 2460, 109 


seoPRINT OF CNOC PROPERTIES FOR STIFF CaACeee 

aNGO IF CN - 2) 26,247,248 

BHG OMITE 16 2421 TE IG ICL) REFSTC UND REFSTIGUS) EMOC CLE) CNOCI2, FP ENC 
003.19 ENOCEM 1) NOC (S.99 ENICIG. 0) 
@0 TO 16) 

¢ 

ONT WRITE 16 .2ACSTENGIC2) REF STE IS) MCP SIGI2) ENOC IG 2) EOC 12,21 ENO 
003,29 ENQCE% 2) ,£NOC(S.2) .ENOCI6 2) 
00 TO 108 

¢ 

a6 IF tN - ©) 249,250,250 

BO WRITE 1B 2441 TE IGIE3) REF SIE G3) REFS TOS 3) ENOCI1, 3) ENOCI2, 3) ,CNOC 
003,39 CNOC (4, BP ENOC(S, 3) ,ENOCIG, 3) 
00 10 108 

¢ 

B50 LIC 16 AOS TCIGICet MEF STE CS) REFSIONS) ENOC CL 4) CNOCT2, 91 ,LNOC 
143.9) ENQCO% 0) ENO IS. 91 CPC 1S 4) 

€ 

109 CONT Hhat 
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eeee 


OBIS 1eUT LASTING AJTOFLOW CHART SET - SHEEP Wits MO CMFCIIAGE MOO - 


CARD NO nees CONTENTS, soe 
oss ¢ 
1066 c eeeTEST ALI4ID. Jee COME £.G REQD AT 20 LOAD COO. 286 
1067 OF 43.0 - ACCWIC 285.200,c895 
1068 260 00 269 LEASES. 2Sk 
1069 FOHCYILCASED © 6.6 
1070 bur CILCASED = OC 
107 FOHFGILCASE) © ¢ 
1e72 UF CTEMPULCASE DD €21.289,261 
1073 261 FROPILD © CPOE 
tom PROPI2) = CFEMU 
1073 pROPI3) = CFECY 
1076 1 UTEMPILCASE) - Te. 262,264,262 
1077 262M» INTITEMPILCA5E 7509.02 
107 F = TEMPULCASE N12. - FLOATIMLD 
1079 me Met 
1090 wemeld 
1001 00 263 11,3 
1062 PROPCL) © PROPEL ECS OP TCIM, D267 SCCPMIL ONL, 2P-CFRIL ONE 12097109.0 
1003 263 CONTIN 
100% 
1085 ¢ °CALC FOIL G AND MOVE FOIL E AND FCYSe* 
1008 264 FOHCYILCASED © PF F131 
1087 FOMCILCASE) © PFLP AS) 
1008 FOHMFGILCASE) © FF.2F029712.0°C1.0 ¢ PROPI2))) 
1069 269 CONTIN 
1090 c 
1086 WRITE (6.2659) 
toe2 2691 FORMAT ¢36HO 2° ¢rQQEYCOMB CORE PROPERTIES?** ) 
1083 2691 FORMAT (4%X,12, 3216.6) 
10% 00 2692 I-1.20 
1095 WRITE (6.269080 ORC VOT) FORE CCL) POH GC) 
1098 2692 CONTINUE 
1097 ¢ 
1098 ¢c 
1098 2695 RETURN 
1100 ED 
ite! Cooessee 
tz ¢ 
1103 ¢ eer eoSUBROUTINE ALOADECese 
1hON C  OONET ULTIMA: LOADS EVALUATION - ADV. COMP. ANALYSIS¢*? 
1105 c 
1108 Seccectvceuerss 
41107 c 
1108 SUBROUTINE AVLOAD av.00010 
109 c AVL000 1 
10 CerereocesesssCOMPOSITE STRUCTURE ANALYSIS VERSION OF SUBR WLOADS*eeseesan 05012 
gan ¢ eREVISED TO EVALUATE UP TO 20 LOAD CASES*e* av.oools 
uz ¢ aAVLOOOI4 
ws ¢ wanes 
obi ¢ wodoo2e 
nis ¢ eeOMET ULT CESIGN LOADS CALC SUBRCe 000030 
816 € WO000%O 
ony ¢ eels = TYPE OF LOAD SET {Dee" won0nso 
ime € *l © GROSS. CAC* w.c00060 
oe € 92 © GOSS. Inputs “coos7o 
120 € *3 © INPUT, NETS wo0o089 
uaa ¢ “coors? 
122 c ‘ao00100 
oes ¢ 1.000150 
11m COMMON T2060) 0125639 .CO12000) .NDI1909, THI 900) .CTC20Ned &v.00169 
1123 COMMON /IPRINT/ IP t@9> 000168 
(ies ¢ 4.000170 
01a? DIMENSION OCC LOO). THeavr TSEC1 3001, 2000180 
size VALPVCL EE AL PCTS? AC PT CUD) ALCL) ANC) ALTO LGD, 4.000189 
28 STOGHCIG) LL TPTCLED CR ENTOSED, wooo 
4130 WOMVEET) OORT) OTOL TD SORVILID SOMMIII) SOWTUIED, woor 193 
asi WUW'SILED UVRSEL1) CA SIELD DEST, W001 
ee BTONVI 1G) TOMI ED Toedteas, 000195 
ays GOFRODI 11) OW SAStIID, “0018s 
11 Losi t2:, 4.000198 
138 PA TPVE DDD UL TOMES ED CR TNVELES UL NMOS) 4.000199 
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R/T UPUT LEST ES MITEL GE CHAT ST EOF whey 


CARD ND oe.ee CORTENTS sieee 
b136 ¢ De ks 
1037 DIPEHSION ACLE990? ACH ITICE DI ALEC, 

139 ISTHE DES STM ED SET CULE, vu” 

413¢ SFUVECTLD PLMECT OD ERT OCTED FU WZORED FLPQUS) FL Tete ll, 

180 SOUVLOLED COL MECEDD COLTIC COCVOCNDD COM ea be Cla Teel, 

tat OCOL SECA CORSET ED COR T3CIED AMLOCLOD 

tis2 c av0r210 

ied ¢ MOCI21IO 

thes CQUIVALCICE (OC CED OCI4OITD  CCPNZ 0120500, FU NZ Oreasis, worr220 

Liss VOULTLF Ddt220d TT EDDTEDSETID LE TCECUTD COMUSOUIT, MOO5221 

1146 SUARPVEND TESSWDD CA PMELI,TISCONE CAPES DP TIB27PD CALNVEED TIS CIM OIL ce 

tin? DO CALAMITY TiS 72 0 CALNTEDD TEELSN) CTDC CHD Tee 3Oed, MO2223 

isa WDE DD TASIGDD COST DD THBOTD COUT THE200), MOl726 

1149 StULTPMOLD TSECULDD CUR TEVCED PSEC CRATE CUR TRVEDD TESCOMEEID OU TM ACLS 225 

4190 BEE TEEC C1223 1 (GIRODLS)  TIC6BIP, IOGWIFeeent, MWOLC26 

ust TADGWR, VOGHI 221 CLOAK TOME SDD ETB TOMI, MCF 

tise GQUNCASE POE 9d) COO PY 1b CGT AOCBETD TOPE NDE ID), MM2223 

3153 SUMP ACE NOTES H ECL ID DIS, IN FDE3ODI CK OUTED MOOl229 

ike} c MO00230 

i) EQUIVALENCE CUNE SOLD TSECI23D)  CARSEDD TSEC ESD, MCI2AN0 

156 VAR TPTELD TSEC CIO CUR INTC ED, TSCCCISSID, MOOO™ 

0187 QCSOMVEDD FCGWHD ET  CSORPICLD,TIOSS9)  COOTIED TEECS ND, MOl242 

158 DORLOSIND .COLNO0)), MOON 

1159 GTO Ld .COLIG5Od) CTO SH L) COCID7IND CTOMTIN? COLNE ION, MCEINe 

1160 BIOWSASIED ,CONI92039, (DYFSIT) OCG421), ID RSET FDICS3N W000249 

16t 000250 

162 ¢ AM 00240 

1163 EQUIVALENCE CACLEUD CTUDID CACWITE ED CHCHRZEDD CACLTIDD COCS32b2, AMOSISO 

Lit UOSTHVCELD PCBUE dd CSTHICLD ThE Cl))  USTAT ELD TIGL SID, AM 60251 

165 QUFLVEGID TINGSOD AFLAL CED T6456 19 CFL TICE VEN TOE, AM00252 

1166 VELVACLD TEN 7BID CFLMQCLD TESOSPD CPL IZUOD TiMISID, AV.09253 

4167 WOCOLWECHD, TC3O9DD  CCOLMICLD TES2O0) SCOLTICED TUSSI, AVLOD2TA 

1168 SICOL VOCED TESH2PY, “COLMIEN) TEISTII ACOLEQCHI Th 3sGerd, ALOIS, 

1169 GUCOLVE CLE TES 752d CCOLMBCL) TASISND MCOTECHD,TC3979), AVLO0256 

1970 PATOGHC LE. VE4309)  FCOLKS, TDOGWCIS??, aNXL00257 

7 BCILCASS NOUNS) AKL00259 

ye c AK.00260 

1173 ¢ PoeCrECK BK PRINTESe 4.000251 

ira) c *3P 235 #OR NOON © 1 ONLY? ‘wo002s2 

us ¢€ olP & FOR AL NOOWS w000293 

11% ¢ “SET TTt3) TO 0 FOR NO PRINT, § FOR PRINTS MOSDey- 

ayy too -T1t3) = OCr3 4.000260 

1178 IF (NOOK - NO11121000,3000, 1001 000261 

usa 1000 N= 25 W000265, 

$180 1FC1P12S2) 1003. 1003, 1002 wooseTsS 

oor Ne & 4.000270 

$002 IFIIPI249) £003.1003, 1009 ‘“woooe7) 

1003 1143) © OVD “co25 

PAGE © NPAGE ¢ MDILI 000275, 

WRITE(G, 1O0N INCASE ,NP AGE WN, IGM NOON, 10P1 0541 woocesO 

WRITEIG, 1005) ‘000285 

c 000289 

100% FORMAT 110K) CASE 84, 16X,.48H-9*-DESIGN 0405/1000 Aw REOD Bs iV.op0eso 

1,000,000-%%- ,20K.SHPAGE IN, /16H9 1Pel2.6H = iGWel!. 7H WYWLODT*94 

POOMST1.7H LOP1911,6H Giro. 1) woooes2 

c w000e9 

1005 FORMAT I106HO SA eVIULT) ePID eTHULT) «-VIUL TE | -MILLK000300 

192) <TR TP VONEIG) «= DWEIG)) «= TOMTIG) © GYIREQOD > WO000301 

€ 000302 

1 FORMAT Ci 3x,12.F10.3.F18.2.F10.2.79.3.F10.2,F10.2,.79.3,F10.2.F 10000303 

1.2.F12.39 WOOT 

c 4000309 

1009 DO 109 Nei.t) woousi0 

Ke nti2) - N wcoesS 

Trdg) © OCads wcooies 

THE?) © OCA3> 4000325. 

Hes & OCisd wvosse 

IF ULED - O82) 109,101,102 MOONS 

woo0s;so 

PRINT ON TTISIe1 oe KO000TS) 

**SETUP INERTIA Datace woooseo 
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OB IN PEST CES nS MTL CM CHAT SET - SAE EP bite AE CPP EIINGE MOAT - 


CARD NO eee CONTENTS sce 
120? GOL TEEaD © CCsweTE eo eit © CCeb SIMD V.CCS370 
vaca VES1 « CAs TBP © Cle WIC 2350 
1209 VECT) © Ole Thaw tcdb ited © CC V.C53S 
1210 ¢ MK>389 
taut 102 URTPVIRD © ULTLE Dae eA Rested - LIOR OSES OTT) VCD 3393 
late c MOOI 
faa3 ULL INVIRD © UIE LGR A ICE ND = UPRISING SOPOT TOLD MOHAI0 
121s € V.002403 
1215 ULTPHIRT © ULILF *DGHROALPMIN: - UENZRLOSINO TINOT TQ) MOCIVIO 
1216 € MOIS 
W217 LTE eb © UL TEP OGRA IM ter = UEZORLOS INO L1OROTII2) MOLES 
i216 c MOMmID 
1219 CRIPTCKD © TLE OGRA PT EN? - UPNZ*RLOS(MOBSNOTTIT) MOlI420 
t220 € MOCN2y 
l2ar ULINTIKE © CQLILF ORAL Td - WAZ RLOSING 202 °TTE 7 MK 52e5 
leee UH 
sees c FS/RS LOSS MCCO+30 
1224 UWSIK) © ULIPVIKISOFSIND OL FSEND MCOWND 
1223 UVES (KI © ULTPVLK) ONES UNI OIL BD = DVESRSINDD W.000W5S9 
1226 UF ATTe3e) 109,109,103 MOOWS! 
s2e7 VO3 FTO) = WTPViK»71090.0 Vi.000NS2 
lees THEO) © ULTPMIK?71000.0 V00WSS 
1229 THENObe AL TPTIKIZECOO.8 MOSH 
1230 TTR Ie ULINVIKI71059.0 M0OMSS 
4231 THELS}= UW WKI71000.0 VOWS 
1232 THULS© ULTNT(K)71000.0 009457 
1233 Theisbe TTALs7s0C" O M000458 
12 WHEIS) © T1¢2171000.0 000459 
1235 TIENG) © T147971050.0 “000 50 
1236 THIN7) © GIROOINI/16CC0C0.0 M0O%61 
1237 WRITE (6,1089N,1(TT1107), 8°91, 200 W.000465, 
1238 c 000470 
1239 Waid © TYCLD MOON 73 
10 TOMA) © THK) MOOWM 
1a, TOMTIND © TTC?) MODS 
a2 c M0079 
1eN3 109 CONT IAE 000180 
tan c 4.000990 
1245 ¢ av.01000 
146 c @eeSETUP LOADS ARRAY FO’ 20V. COMP. ROUTINES S** &A01010 
1247 ¢ °20 SEIS OF LOADS--¢V.m.1I XK IL EACHS 4VL01620 
1248 ¢ *OATA ON RCD 30. [14 OF LOADS*ILCASE® aM.01030 
tae 150 CAL REAOMS (1,4CL091,990,37) AMLO10N0 
1230 c AMOLONT 
1231 c eeeSE TU PRINT iD FOR (CANS PROCESS LOOP<? ALOIS 

4 l2s2 c iP 25 FOR NKR © § aye AX0104K3 
4 1253 ¢c 1? 24 FOR AL NODS AVLOL ONY 
p ira) ¢ SET NNO FOR NO PRINT. 1 FOR PRINT? ANLOI0NS, 
17985 WN © OCIS) AVLOL ONS 
| ize IP CNOOM - KOCTIE 1500,1500, 1501 a010N7 
V i237 1900 $F (1Pi25)) 1502, 1502,1591 ALOIS 
1258 W501 IF CiPioutd 1502, ¢0562,1509 AMLOLOND 
1s 1502 WN © NOCD) 4M.01050 
(260 ¢c aMoi0n 
1261 1509 DO 151 [91,660 aM.010%s 
l2e2 aCMTTtth © OC63) aL.01060 
1263 ASt) CONTINUE BA01070 
1204 c 4.91080 
1. OO 199 Nel ILCASE 201090 
tees to Nes} -33 a01100 
1387 ©O 152 fot .33 MAOITIO 
1200 Ketel @AO1120 
(268 MCLTAED © ACLIKD A.01130 
1270 152 CONT INE AMLOLING 
1271 ¢c MAOLISO 
t27e BO 153 feta 4401160 
273 BCLTELO33) © TL SLOGANS = ACL EMO P00) ACL tNSEED) $OORK OC TSEAVLO81 70 
12% UR DAVITE © STMVITD © ACLENCTZIITL VELL ¢ ACLING MOTEL VET) © ACLANLOIIEO 
wr Bie MOMCOL VISE) © ACLEN® TBD VOCIE © COLKS*COL VEIT HDD aVL01190 
2% € #401208 
1277 ACLTE Roe) = UL TLE (CGAL td Uo ALLIN® 700) ACE CN BBO) OCR 1AM 01210 
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OBIT HUE Listien, AUTOFLOW CHAPT SS + SHEEP Wifes MO EMPOINACL HOARE - 


CARD NO eee COnl “ts 
1278 VIB KODA ED 6 STRATE © ACL INS 2OOUSFLMLCT? ¢ ACL ING MOIFLMeCI) © AM OITA 
1279 QACLING TED OCILPUITL © ACL EM* TBODOCOMOTE) © COb SCO Tepes avoirid 
t2a0 € AVLO12N0 
1261 ACLVCD 0951 © UL TLE 1 OGBALL TUS 22) = ALLAN] TOSI ACL INC SOF OTe SLAM OLESO 
1282 DTBxQcofeT ibd © STATED @ ACL Ee POUL TECTED © ACLUNS MOPPFLIQCED * AMOI2CO 
1ee3 SACLING MEOPCCER TEAL) © ACLEN* 7BOP CIR TOCED © COLKSCCOLTSi bbe av. 01270 
len € AVLO1280 
lees 183) CONTIIAE AMW01290 
1286 c AVL01300 
1207 OO 1% fetal AMLOLSIO 
1200 mek ¢ Benbrdy - NDIA) AMLOISIS 
1269 ACMATIKY © ACLTCLS331 AVL01320 
1290 ACMATIKe DD © ACLTCD 44> AVLO1 326, 
1291 ACMATIKe2) © ACLTC L655) AVLOE330 
1292 1 CONTINUE AVL01340 
1293 AV.01350 
12m c eeTeST FOR PRINT OF CURRENT COMMITIONS?? AMLOL3E0 
1295 IF CNN) 159,159,155 a¥.01390 
1296 155 WRITE 66, 1S60ACL UM C40d av.01330 
te97 156 FORMAT ¢14HO COND. NO.FO.1,//ESHO = STA VIULT) MCULTIAV.01399 
tese 1 TUT) STA VULT? mT) TET HD AMLOISOO 
1299 157 FORMAT (YX, TSFUL EFS. EF Ee PMX ISPD FUS Fle wD AMLOI4IO 
1300 1570 FORMAT (4X, PSF EL. NFS. bie. 0) AMLOLN2O 
1308 ¢ AVLOL430 
1302 00 158 391,10,2 aMLO1440 
$303 Lette ND AMLOLYSO 
130% RITE (GB ASTIEACLTULe33) ACLT CP OSeD ACL TCL O55) .L ACLU e34) AC) TEAM OI4GO 
1305 Ron) ACL TON S6) AVL01470 
1306, 158 CONTIIAE AVLOt4BO 
4307 c AVL01490 
1306 BRITE (6, IS7OONDCEED ACLT C44? ACL TSS) ACLT(EG? AVL05500 
1309 ¢ AMLOISIO 
1310 c *LOOP FOR NEXT LOAD CONDITIONS AvL01520 
1311 159 CONTINUE AMO1530 
ine c AMLOISHD 
1313 c 4.001990 
134 c eooExt tees 4.001990 
ns 599) RETURY 001998 
1316 nD 001999 
41317 CoseecscccecsvevesserscresvussseeeseeeCTNeSESuUNCRUT ESCO ECROKeRRuESESEES 
1318 ¢ 
the c ese SUBROUTINE ACPROG*? 
1320 C = FPCTOTAL SURFACE HEIGHT SYNTHESIS CONTROL - ADV. COMP. AMALYSIS**® 
i321 ¢ 
see CesucoveuressscscoccesvicesencescuSerneSOURUCOCUCeSUSNESOEETORSSSTETISCE 
1x23 c 
sew SUBROUTINE ACPROG ACPROOLO 
1325 ¢€ PROGOO20 
1326 c #°GENL CONTROL PROG FOR GH/DW PASSES? ** PROGOOSO 
1327 c PROGOOND 
tee c PROGO!IO 
1329 c PROGOL IO 
1330 COMMON T1206) 012050) .CO12000) ,ND1 100), THI900) .CT 12048) ACPROINO 
1331 COMMON /MISC 041501100) PROGOI4| 
1332 ¢ PROGOI5O 
1333 DIMENSION DCE100) TSEC (300) .OGWES) , TOGHIS) .TSS¢100), TWII400), PRUGOI60 
13y STTCOY? OMTLBCE7) ,TOGHE IS) LL TPC ET) OWVILED OMT? DMTOTID, PROCOIGE 
1335 QYBULCI ED YBUOCHDT YOLECHE) .YBLOCII), PROGO162 
1336 DOME CEE) OSE CHT) ONKET CTE? DEFFUCIID, PROGOIE63 
1337 SOWVET I) SOMMCL I) SONTESS? OCOL 148) OCNST3(22) ,TCNSTIC), , PROGOTEY 
1338 SAF OOMIO) FLVICL ED FEVACNLS FUMECEDD FLAQCTLD FLVUCSD EL T2CULE, «© PROGOIES 
$338 GQCOLVECTED COL VCIEt COL VECN1) COLMECII COLM2C19) .COLMBILID, PROGOIE6 
10 PROLTACSED COR T2051) COLTSCELD STMVENE) STMT) STMTEELD, PROGOI67 
Un @OCESTILN) OCNOSI11) CPCOL(10) SHTdE1), PROGOIE8 
12 SAPOL SCL LD TPMT CHT CDS) TEMP LCS) TPL) RP PROGOIES 
13 MACMALL ACWOGI ITE PROGOIED 
iP a) B.CIBWEISOD ,TSCIN201 PROOCIE9 
15 ¢ PROGO! 70 
16 ¢ PROGO 70 
7 OIMENSION TEMP 620) ,Wi22), ACPROL7O 
ine ITE IGUte1, SCPROITI 


iss) 
a) 
~l 
ie) 


LE EE, SERIES MRR TASTES ASSO UH POP MOOR OEY “EYE VOR nD 


7 


i 


wee 


Ee Ee LEN 


O6718/% 


Card NO 


ing 
1380 
1351 
13se 
1383 
13% 
1335 
1356 
1357 
1358 
1359 
1360 
Mt 
1362 
1363 
1 
1368 
1368 
1367 
1368 
1369 
1370 
1371 
1372 
1373 
13% 
135 
(376 
1377 
1370 
1379 
1380 
(ye 
1382 
1383 
1304 


‘391 
1392 
1393 
13% 
1395 
1398 
4397 
1398 
1399 
1400 
1801 
1802 
1403 
16 
1905 
1406 
1407 
soe 
1809 
1910 
a1 
iwie 
isis 
sete 
is 
1916 
i917 
Iie 
ht 


INPUT LISTING 


anannana 


MITCH OW CHART SET - SHEEP 
CONTENTS 


2crPig), 
BALOSI ISD, 
STSOCLid WHart) GCRODIII 


CQUIVALE C HOCHLD DCINOD DD CISECELS COCMSOL IT TVCLD POUSe Tey, 
HEOGHEED 0610219, (0CWO.0' 1050), (OWI T1220), (TOGMIT) DIbOd, 
BUDKM D623 90 104280 0636999, CDCMST SCTE OUESONId COWTEbe COCTEOL 
SCTOGHCLE TN 300) COCARD TOGHE 191, (OGHR. TOGHI29) (TOR TOCHENID, 
WERFLUTOGHI DID URFL2,TOGHTI2I), 

SICOK TOGHCT SDD (COKE TOGWE DDD (CORKS, TOGHIISII, 

BtTOPS .NDIG32b, CLOPC MDIGs2) 1 10P1 NDIE 20), C10PT NDI POD), 

FUTSC LNDI2200, CICO.NOUNI)D 01 NOC 2671, OM C27 IK NDI ODD, 
OCF NDESSI), CIF D1971 9 CNOCT MOLES, 

BC 1GH,NOIB13) .C1GTNDIS71) (HOO NOISG HD CH? PDIP ST 


EQUIVALENCE CYDUDEE),TH6790), FYOLICID, T169003, 

LIDOPT 0623652), f00PIP.DCN 3991) ,CTSSEd?  VUNSGED, 
QCOCBSTL1Y 0176599, (OCMOS(L OI 77, 

DIDMVELD TAS9BP), COSHCL), F6G09I2, (TEND, T6200), 
WCOOMEL ELD TEIOLI) CDOMELAEI TeFbere, 
SiO CGD TET TOD COEFFI CED TEBOODD CULO ED TSECC EDD, 
GFL VICE D TOWGS 7 CLEA ED, TONS 0D CFL TEED TOG 790, 
TPLVAULD TAN 7OP) CFLM2CTD, TE4OGDD CFLTQCL) ,TAMLGID, 
WUSOMVE LD .THB41d, (SOMMEE) 118553), (SDWTES) TIB66)), 
@UYBUEC SD TSECH133I) CYOL ECL) TSEC CIES? 


EQUIVALENCE (STMVILD TAB129) CSTE) TIB229) ASTHT CLD, TE@SIII, 
DECOLVETED ,TO3091) CCOLMIC ED TES2OID CCORTECID TES3II0, 
SECOLVACTD TASH20), CCOLMICTD TESTO) ACOLT2CL) TC 36ND, 
BECOLVSCL) 1637511, (COLM3A ED, 636699, CCOLTSCED,TE397II, 
MRF OGHI TY. T6S220), COMTLBC 1), TH20)09, 

SUSDAHO, THWTC1 759), (ERT OMTLBC14) 2, CRT OMTLBIIS)), 
GLOPCOL C19, T2209) CSHTELD TE7SWND, CTCNSTOND CDLI9600), 
TUMPHLS (1), T1645), CTPNLIC LD, TI6562) , CTECHT CED. T7892, 
QUTEP LCL) TES) ATP dD TC 77BP Dd CPP) TCDD, 
BLOCOL ACL) .OC16708 

A, CACMFOE (1) ,COU19380) , CACVFOGE11 COL 19691) 

B, (ORHOO .CO1193791, (DOF .CO1192613, (DEW ,COC1935)) 
CACTOMEDD TORSATDD CTSCOND TEMS41 0D 


COUIVALENCE CTEMPON) CT(2005h) CHEE) CTUNSOI DD, 

LETBOCL) ,TIS3OND, CTEWCL), 145920), (GIRODI1), 116680), 

SCTE IOIELD, TRETEIED COTHPB 128192, (WPOTMP.TH19G 9), 1OTHPFO,O1284 
SCOTHPFL 062031), (WF I0.012519) FOINIO.O127E0), 

SCENPCL) OCLISS9D, 

SCRMLES(41,COC4002?, 

GUST SN,DI 361), ICNSIO.DINGID), 

TEAL $0 ,.0143019, (DERHO O1N649), CACCVID OC SIDI, 

GU CASE .CTI2046)), 

SUILCASE NDIWE)) 


@4SETLP DATA FOR ADV. COMPOSITE DESIGNE** 


$06 MLCASE © DI2) 


ILCASE © NOI2) 

00 2.) fet, 

Me NOC2)¢] - NOEL 
iM) © TEeET) 
WINe}) © TEOCED 
CONTINUE 


*SETUP LOAD TEMPrt 206 
TEwPrt) = OMTLBIDD 
TorPi2s PTC 


*eeSETUP TEIOJ ARRAY DATA--TEMP FOR £1.00 CAC FOR-- 
ool. BASE STIFFRESS OUTPUT DATAS® 

ee2. CRITICAL FLUTICR PY ANALYSIS** 

*e3. OUTPUT E1/GJ FOR FLUTTER IPT. ANA YSIS*® 

oom. OUTPUT L1/GJ FOR FLEX LOADS ANALYSIS** 
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WIS AD CPPENATE MOU - 


MLPROVIZ 
ACPROITS 
aCPROITD 
acPRoied 
FROGOIGO 
PROGOIE! 
bd PROCOIEL 
PROWE 3 
PROGO LEY 
PROGO18S 
PROGOIES 
PROGO187 
PROGOIE8 
PROGOIO9 
PROGOI90 
PROGOZ00 
PRO 0210 
PROGO220 
PROGO221 
PROGOZ22 
PROGOT?S 
PROGOeS4 
PROCO225 
PRIGOZ26 
PROGO227 
PROGOZ28 
PR™S0229 
PROGOZ30 
PROGO24D 
PROGOAY 1 
PROGOEN2 
PROGOCYS 
PROGOOY 
PROGOANS 


PROGOZED 
ACPROCEO 
ACPRO?61 
3 ACPROCG2 
ACPROCES 
ACPRECES 
ACPROCES 
ALe 30266 
ACPROCE? 
ACPROCTS 
aCPROCED 
ACPRDIOO 
ACPROSIO 
ACPRO320 
ACPROIIO 
ACPROIO 
ALPROSSO 
ACPROIEO 
ACPRO370 
AaCPROWOO 
ACPROWOL 
A PROOZ 
PROS 
ACPRONOS 
ACPROWOD 
ACPROWTO 
ACPROW IL 
ACPRONIZ 
ACPROWIS 
ALPRON I 


PE COTERT 


re 


en cmieamaienienainmentnnesnmeinnndlimmantidmianememnietemnnenindedlal 


06/107 eur visti AUTOOLOd CHAT SET - SHECP WIND AND LIPLIAAL MOOULL - 
CARD WO eose CONTENTS. meee 
1820 € ACPROWIS 
1420 ¢ SUTEM 1. If INPUT TEMP®D, PROG WILL USE 01253) DATA® = ALPROWIS. 
in2e c ACPRON IG 
sas ¢c eentEN 2. TF CALC OR INPUT GJ, We OTE MAS BEEN SETUP | ACPROWIG 
sen c . MO STORED IN WLP oT ISore* ALPROVIC 
1825 ¢ aCPROWET 
is26 c SOLTEMS 3.8) IF BNPUT TEPP>D, WO OATA IS TO EE CAC, ACPROWI? 
142? € . PROG WILL USE TEMP FOR ITEM 1 DOW? ACPROWIG 
N28 ¢ ACPRON IS 
8829 503 00 $030 1-1,3 ACPRON20 
i430 TEIGIChett © OCES) ACPRONZ1 
wt 8030 CONTINUE ACPRONZ2 
w32 TEIGUEL) = OTB ALPROW23 
1833 IF (OTB 5031, 5031 .5032 ALPROWE 
WH $031 TEMG) © OIMGLED ACPRONZS 
1935 S032 IF CWI) $035.5935.5033 ACPROWZE 
1436 $033 TEIGi2) = WORP ACPRON27 
1437 c ACPRON2D 
ine ¢ ACPROW30 
1839 ¢ FLUTTER LPT/FLX LOSS* ACPROWS) 
ino ¢ #1000,0,2.3  O8NO. 1. 3ePLUT/OPT, 1,2*F 005° ACPROWSI 
went S035 IF (DINID) 503.505.5936 ACPROWS2 
W442 $036 IF (DINID - Di2h) 5037,5039,5057 ACPROWSS 
1943 $037 TEiGUC3) © DIMPFO ACPROW 4 
tes IF cOlPFOD 5038,5038,5039 ALPRONTS 
1445, S03@ TE1GI3) » TEIGIID ACPRONSG 
1496 $039 IF (OINID - 0(2)) 5040,5040,505 ACPRONS7 
tw? SOWO TEC Ii4) = DIMPFL ACPROW 38 
160 IF COTPPFLY S061, 5041505 ACPR’ 39 
1898 SOv1 TCIGIIN) = TEMG) ACPROWD 
1450 c ACPROWN) 
1451 € PROGONYS 
482 c #eeSETUP LOADS FOR COMPCSITE ANALYSIS*** PROGOND 
i433 $05 CAL ACLOAD ACPROWSO 
te ¢c S°SAVE RLDS ARRAY ON RCO 39°° ACPROWSS 
he] CAL WRITMS 41,AL05¢1),132,39) ACPRONSS 
14956 c PROGNS® 
1457 ¢ **8A0V. COMP. MATL PROPS? ACPROWGO 
ns8 CALL TEMPC ACPROW70 
1458 ¢ ACPROWT} 
ts60 c *°CLEAR TI920-1OI¢* ACPRONT2 
IsGt DO S06 Hel ,42i ACPROY 7 
1n6z TebeGI9r = OCES) ACPRON 
i463 806 CONTINUE ALPROW TS 
18 ACPROW TD 
1865 ACPROVEO 
1468 c *OeSETUP THT ARRAY CONSTANTS ALPHONGD 
1967 SORHO © CNP) ACPROSOO 
iveo TH11165) = OL, ACPROSIO 
169 00 507 fe1,6 ACPROSZ0 
1470 THTd1¢175) © O11) AC PROS 30 
1978 S07 CONTIN ACPROWO 
1672 THTC1@3> © DEL) ACPROSSO 
473 THT CHa) © OLD ACPROSEO 
wm ACPROS70 
1875 ¢ 946SE1 INPUT COND WT 10 LB/SO INeee pROGoSeO 
678 OGRHO © CBRHD/0117! PROGOSSO 
77 PROGIEOD 
wre PROGOSZO 
re) ¢€ O°OSLIUP OM PASSES. MAXegeer PROGO330 
veo 100 AOW © IF xiao) PRCOO NO 
tear IF CS) - wd 101,102,102 PROGO TSO 
iva2 10) MOM © NOIS! PROGO360 
1663 PROG0370 
1s eR0g0s 12 
103 € CLEAR 308-109, 100/RCD* PROGOSI3 
tees 162 00 105 Ne1.6 PROGOSIN 
167 eee Me 103 eRO0s1S 
vee CAL WRETIS C1.CD051,200, 17> PROGOSIG 
ses 103 CONTINUE PROGOS17 
1690 ¢€ PROOCSIB 
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¢ 
¢ 


one COMTENTS 


eeeSae £ FTI SD 3ED RS Todhere 
150 BO 15 tei.s 
TONSTELD © DilodPea 
TCNST (Lem) © Diped7zs 
BS) CONT UE 


ooreeSE UP FER 3 GH. CAC. GH I 10 1 10 e.eeree 
200 [Cad « HOTS) 
WOOH = 1OOP ¢ PDite 
WF ¢TOGWI33) 2002.2527,210 


esol Ses. TEST TOGHILICe 
2000 [GH = NOC? 
OF CTOGHCdd) 2001,2°531,.210 


eeeTOCHIS AD bie. TEST 10GHI2s¢%¢ 
200t IGW = NDI2) 
UF (3OGH'21) SOO.N53.210 


#eeTOGHIS) MCT ZERO. 00 TOGWILbee? 
20! IGM = NDI) 
UF (TOG) 202,202,233 


#eeTOGW(3 OR §) NOT ZERO. 00 1OmIeIeee 
202 $GH = NDI2) 
1F ¢TOGH(2d) 400.403.203 
203 NOCH = IP 


@*eBEGIN LOCP FOR DGWers 
210 OGHI © OGHIIGH) 


toT > 1Gu 
OGHR © DGHI/0GHO "DOKL 
OGWR1 = OG - 011) 


*°SETUP TOTA DM LESS BOX AT OGAi Ibe? 
2bh RELL © REO IGHeLS 
BFL2 © RFDGHS 1GHeS? 
COLK3 © DiI? 
COLKE © O61) - DCOORIIGHedd 
COLK2 © DEDP - DCCL IC 1GHeS) 
60 2110 I=i.tt 


AITO L Ged Cute SET - SECP 


BI AO PERE MALE - 
aeoe 


FRIGLEID 
FRTS20 
PROGIS30 
PRIN 
PROS I550 
PROGI570 
PROCESO 
PRIGT 363 
PRIGICTO 
pROGCesO 
PROGCSSI 
PROCCaS2 
PROGL233 
PROG088S 
PROGS 36° 
PROGI333 
PROGOES9 
PROGOESO 
PROCOBIS 
PROGNOSIS 
PROGOSIO 
PROGOS20 
PROGOSIO 
PROGCIO 
PROGCSSO 
PROL 0960 
PROGSS70 
PROGOS35 
ROG0999 
ROG 1000 
PROG101IO 
PROG1020 
PROGIO30 
PROG IONO 
PROG 1050 
R00 1060 
ROG1070 
PROG1080 
PROGIO90 
PROGI 100 
PROGIIIO 
pROG1120 
PROG1130 


SOMVILD © STMVCED © FYLISFLVICED © RFL2FLN2ET) © COLKI*COLVICN) ¢PROGLINO 


§ COUK2*COLWAtEh © CORNS COVETED 


PROGINS 


SOW) © STHCES © ROL LOFLMICTD © AFL2°FL Pt) © COLKISCOLM' i) ePROGIISO 


O COLK2*COR Meth) ¢ COLKSOCOLMIIED 


PROGIISI 


SOWTCLY © STMTCR? © FOLICFLTIOED © AFL2°FLT2C) © COLKIOCOLEICED ¢PROGII60 


1 QUK2*COLT2¢9) ¢ COUKSCOH TSI 
2110 CONTINUE 


eeeeDe STERATEON LOOP. ADJUST OM AO VIRARI Core 
@CeSETUP RATIOS FROM RCD 39°¢8 
220 CALL READHS (1,M.05611,132.59) 
CAL ONYBA 


¢c coe TEST FOR CONST. BY GH se 


WF ADCNST3109) 233.239.223 
223 OC 375) © OCNSTEIIGtedd 
C378) © DCNSTS! IGiew? 
OC377) © OCNST3t1GHe7? 
O137B) © DCNST3: IGaetO) 
01380) © DONST3: ieee 3? 
DI 3Bt) © OCHSTIS( iGo Gs 
BI3S2) © CCNSTIIGee1 es 


eeET LOADS AND OESIGN DATASe* 
236 CML AM0A0 
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PROGIIG? 
PROG1170 
OR0G11 78 
PROGII72 
PROGII79 
pRoc11e0 
PROGLIOS 
PROG1109 
PROG1190 
ROG 1200 
FROGI210 
PROG 1220 
Png i230 
PROGI2NO 
PROG1250 
PROO1260 
n061270 
PROG 1280 
R061 550 
PROG 1369 
aCPRi370 
sCPA1 380 
aCPROTSO 


the te 


Gli h 


CaO NO 


1987 


beret LISTING 


231 


ao 


270 


mnanaannnnanana 


CONTENTS. 


*CLEAR CTit-83200" 
DO 231 Tel.1320 
Chile = OCt3e 
CONTINUE 


ee eesSTART DESIGN ‘SIETCSISs sees 
CAL alsoPr 


#rCSAVE ASSUTTO MULT) AD DAV DATA FOR LILRATIONSS? 


ORDER ROOT-TIPS 
OO 231 fel. 
we MOUI2) - I 
Oo1ichd = Come 
OOMIECT) © UL TPHiND 
CONTINUE 


eeeOmt Vd FOR DESIG@ED Datater 


#OOSLT Kel FOR OF 4rE CHE PRINT BY SUPR DE ADHOS? 


keno 
CAL DEAN 


seeeTEST FOR TEXT DH PASS*ees 
NOOH © NOOW NOU? 
OG@RI © OC13) 
UF (NOOH) 280,280,220 


@0eSETUP OLSIGN DATA FOR OUTPUT PROCESS*** 
ORHOO = SORHO 
OEW © THTCI 73? 
wh 9 WHIM 
OC 201 fei,t) 
ACWOE(I) = COLbe297) 
ACWOGI1) © COLT 286) 
CONTINUE 


@OSAVE BT /OCSIGN DATA FOR WOOATA/ICF HL SUR 
*¢CT@H ARRAY CIEMS STORED RI-TIPse 


OL. D9-21BOK WT7IN.-STP. 2. 21 BOX CHOROWISE ST. 


*3. MEET. %. £1 GY. S. DESIGN £.6,RHO. 


6. 10-BC PML WTS-ST. 7. 10-REOO COX DIST. 
*B. 10-1 DELTA COL FS WIS. 9. NI-MISC WIVIN. 


10, .1-VF WTZIN. 


11. TOTAL WT SUMMARY DATA--TITI80-52) (SHT ARRAYI® 


12. Le-mATL EE. 63. RE-MATL G* 
eORCD 156,157. 158--150 CELLS/RCOSe* 
USE Clg TEMP SCRATCH LOC AT ISCII-1501¢ 


OO 203 lel.tt 

Croc IT) = TEP ite 
CTO Teli) © TBCHTIID 
ClO be22) = COls275) 
CTONtTe33 © COLlezber 
CTOMCLe77) = THER CTD 
CTISHI LOB? = WPLIT> 
CYM@MI1¢99) © SHTLID 
CIBNC1¢110) = ACWDECL) 
Cl@witei2i> = ACWOGIIT 
1F G1 - MOt1ON) 282,782,263 
CTSHI Te 7) © KPMLSTTI 
ClouiteS7: © TPNLWGd) 
CTBwC1+67) © OPCOLET? 
CONTINUE 

Clowes) = OCW 
CTBHIN6) © DOW 
CT@MIN7) © CAMOO 


1F@ > low > 155 
CAL WRITMS 61. CTmard) 150. 1°80 
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AJTOFLOM CHART SET - SELF 


bite RO CHPUIAALL HORE - 


aL PROWOO 
ACPROR IO 
ACPROW20 
ACPROWIO 
ALPROWD 
PROG | 160 
PROG INO 
PROOISB0 
PROG 1520 
PROG 1530 
PROG ISO 
PROG 1550 
PROG 1560 
PROOIS70 
PwG 1580 
PROG 1590 
PROG 1600 
PROGIEBIO 
PROGIGII 
PROG IE2O 
PROG 1625 
PROG!630 
PROOIE4O 
PROG 1650 
PROG 1660 
PROGIE6! 
PROG 1668 
PROG IEE9 
PROG 1670 
PROGI67! 
PROOI672 
PROGIGTS 
PROG.676 
PR001677 
PROGI670 
R00 1679 
PROG 1662 
PROG 1663 
PROG 1664 


TTEMSPROG 1665 


PROGI667 
PROGICGS 
PROG 1659 
PROG1670 
PROG IG71 
PROG 1672 
PROGI673 
PROGIO™ 
PROG1679 
R00 1680 
PROG 6E! 
PROG1682 
PROG 1683 
PROD 16% 
PROO 1685 
PROO 1686 
R00 1687 
PROG 1608 
PROG 1609 
PROD 1690 
PROG1691 
PROG eS 
Proc 1693 
PROG 15 
PROOIETS 
PROD 1696 
R00 1697 
roo :see 
PROO1608 
R001 700 
aCPRITIO 


OG 1S7 PRU a. Site MUJIOFLOM CHART SET - SEP WING AND CRPEISUNE IOOWLE 
CAa® NO eeee CONTENTS een 

1633 c APRIL 720 
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16@0 VCTWASD TeG22a09 ACT TEM, CksTco@! 
r (eo QCENP CLD OF NI550), CENMETD OFS 16409, cxsT00e2 
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170" Date tENOt) LCASED OL Er 214 LC ASE I Me2. Fret 2 LCASL PON) XX 
1705 Ce2e 1612 LCASL 2 OL OLD A CASE Pee? CKOT) LC ASE PONT OxK 
1706 € 
6707 c Ol2 ES COVIVALENT TO tOt2e2*D66). TERMS HAVE BEEN COMBINED INTO 
1706 c Di2 
1709 ¢ 
i710 OBB> CILCASE SIL eM) © 0.5 ¢He(ENOC) LCASE 1 ¢ENOI2 LEASE 1-2. ¢ 
ue WEMO13, LEASED) 
nz Di2= (ENQUS UCASE D *UL ele EtadiS LCASE 2. 9 02. *066) OXK 
13 We oCFACT-4.9 1.2.8 
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ins C UF PASEL 1S CORRUGAIEO, CORRECT FOR CORRUGATION 
16 
in? 1 O12 © DI2F act 
31710 O22 = O22/F ACT 
ie c 
1720 ¢c OLE © Exe 107 CL -MUXYeHUTXD 
el ¢ Um = CROOEPONT 72068 3*A/SINIAD-2¢ASSINIAL-S°SINIAID 
vee € WHERE A IS CORRUGATION ANGLE AND ASSUMED TO EF 60 DECRIE 
1723 c TN THIS SUBROUTINE 
V7 c 
1723 Re 872.0204 
1726 WF CR OL, Of4OwIt R= OCNOw) 

1727 WF aR LT. OLNOSDF RM = OL4O3) 

1728 Dth « SENQCI,LOASED OL +2. oMeENQI4 .LCASE) © ENQ(2,LCASE) OND? 
1780 OR=92 90.31 376°ENP ID) 

1730 NOON AE ACT 

1731 
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1733 c 
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17% 60 103 

1737 2 CONTIME 
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1739 C CACUATE INTERACTION 

1m 

mt THE TA*SORTIDI 1 °D22) 012 

Ime PODRe 1B, TID/ IDO DOC THETAGL. I eDI2 

m3 3 CONTINE 

the (F CTHETA-1.9 4.4,5 

ims % WOCVCRe (4. 1B 9B?) $SORT(D22°D12) 1 CTHETA®. 936+. S82) °THETACII. 7? 
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1%e Ol2- (ENO 3 LCASE D° TL ¢N) CEND(5 LEASED OM92. 1 OX 

1781 OBBe IGILCASED SIL ND » O.S*MelENOI) LCASEDCENO(2 LCASED- 
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7% Biosansi022/015) 
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Zod ELFOV CBergey 
Yret.-G392 
RAVE YY OYY-4%. B1e7> 
If (WETaA-3 + 2.6.9 
OFS © UW eave BeeneS sr eDZeenec lh. FeMEUAllG S3ee) 95 TTA 
G 10 10 
BES © tH Rv Berer eS Ades TON ele 
40 CCT 


eosen 906 125 oh CLAEMETAD 


ITERATE TO FO Pele Ele Uns CLEP ICENT 


eoesact £0. 2.55 6919 16 
NBR°O 


WO-23 RIGID CCW Te OO, THe wT © BieChes AP Pe Pei LeEds 
AST CORTVATISE CO DT WLTH WATS E ICEeBLP GINTS 

$.0 - BetCheieeee © C0 

SO FOR RE IST ESHIete Co OCH IS 1 /8l FOR ARTI 


Cie tui 
mie 2. 6 2.982 
OfL TAs .65 
$7 OOeKt 
ME Am 1.-02062 6 BICBLeKCh oD ersere ew. OBS eb ZtCde deh 
MTG Che? CUB ae ive CBF Ob. AACE BbdeATZeUh ech. /CHdIaT Eh. etZec BES 
ORDOCBPCheGTech eChiosd. /BL be Zea 8 49 
comP=XO-x“T 
WW ocoP 14,12,12 
t2 adds KEL TA 
@ 10 13 
14 DELTASDELTAS.5 
ADD *OEL TA 
WS EF CABSECODPO.LY..OfeaTs GI 10 65 
18 CieCies00 
GO 10 17 
15 IF (hUR.£0.1) GO TO 16 
NBR S 
Go 10 18 


16 NYYCR + FS 
IF CFACT 60. 2. 9 NCR © KTO9. 59*/B8e2 


COU FATTY 1 acl 5c TOES PIN RIO Ce) 


IF (FACT EQ. 2.5 2 MACR = 19.6599011 /B8K2) * U1. 11. © 9 BSS 
UOti/Beresurdy 


CACULATE [ERACTICN 
9B RT © aveons 
RS © NXYARER 
RS5Q = RSHRS 
Re RC ¢ R550 


FCRE © pOCcR 
FCRS = ROR 


SeePRINT CORPOPENT DETAILS GC APRIIDINSTATD © [eee 
MUX e AK I 
BIO UF MAPRTLOINSTAT IE 259,209,200 


291 BRETL 16. 295)NSTAT (CASE BMAX BF ACT 

295 FORMAT CIW27. 24H oe eCKSTAD SUB2 -- STALI2.02H LOCO CAS (12.04 
1 PT NOSIN.SH 6976 .2.8H FACT] Fe. 2,4Heee 3 

290 FORMAT (2x. 56.0.F7.%. 30.2018 O.34, 3015.8, 750K, 2015.8, 3K.3015 O71 
12%,F 19.6, 30, 2615.6, 30, 3615.0/12K 78.6, 3x, 6015.03 


PRITE 16 29608 MNP CK OP NYO O12 022. KXCR NKTER IME TA, XX .O 
166 RC RS RSSO KV, OF 0 KY.ULY 8? 8283.2 
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Deut LIST MIO LOW CHART SLT - STP 
oeee CONTENTS 
29 RC TUY 
eo 
CovecenasscnecseaseseeuUUSETERGSDETUSTSTESSOSUSUSOTI SETUPS OOTESSETEUUESS 
€ 
c eee CSUBROUTINE ACWHS esos 


SUBROUTINE ACHHS 
@eeADV. COMP. BOX SYNTHESIS--M/SPAR COTO? 


#OeeCONSTRUCTION ID--SKCODE Sere 
eCM/SPAR PLATE © | AD SPCOK © 1 OR 28 
COPL/SPAR HC/PML = 2 AND SPCOCE = 1 OR 2Fe 
FULL CEPT HOSE YCOPG © 1 AND SPCOOL = See 


onannana 


COMMON 119168) 


DIMENS 10t 062060) CO’ 2000) PO1 100), THY900) ,CTI2040), 
TENPC9) ENH(6), 
2€PQ15 20) ,ENKI3,20),CNTISID, 
BENCIS) EL CIS) ELWC12) KEL CIC) WSOP, 
NPUZ0) MERGHCL LD SPCRUMC TL) FCRCIO, NTN TELCOS. ISP, 
SOWS(11) DVRS(I1) OW SRSTEED SLCFSIS), 
OIBFS(12) TORSI Ls. YSTONL), 
TSPB(33) SPNC 33) OCBSTCIE) OCNOStIL) WEIGPIIOD, 
OIHICKI2) E112) ,SHLUOL35) SKLLOI3S), 
Ht]. DPD VE3. NE. 20) STRESSI6. 11.20) CRLCIT, 11) 
AJYRUICHED YOLECHID 
@ ,.OOP2¢%) ,OP3(4) 
C.APRILOCI2) 
D,SHCPI2s DROIT) ROT CLI 


EQUIVALENCE (0059, TH20600) CCOCED, TeM12t21, OCH) THEL2noa, 
VATHCTD VEG2VU02 CCTUDD,TEMIZGE, 

QCENP CL) OCL1559), (EMMITT) OL LIEGDD, 

BCENOET 1) THIGOTI) CENKCL ED THEPOIDDCCNTUDD TEISHEDD, 
SCENCEDD .CTC2ONTDD CEL CN) TUDSOODS WSC TEESISOD, 

SCEQMCLD TALG431), CXEL CED, TE132300, CMCIGPE TD, TO16S599, 

GEPLLD TENS SG dd CHE IGHEDD 1616650), (SPCRUMI TD TENG 3290, 

TUCRLC OE BDT9GOP) CFCRED, 12 TUTOODD, CIEL EDU TWEE ID, 

GOUMTE TD CUULSOLID, EVENT EPLCTOMSZID CSTRESSER CUP CT ONDE, 
BI SPCODE .NDI431b, TSKCODE NOCD PIT YPE NO(4S I) TIL TASE NDI OD 


CQUIVALENCE (GSMIN,CNTIS1) , (6SHAX.CNT(6)), (XTYPE .CHTIEOD), 
PACA ONTEDEDD, CC2,CNTEL29) UCE,CNTEESDD, ICY CNTINDD, 
2COWSELD O1O621) , COVES L? 010539) (OWSRSI1) .COLID2NID, 

2 SMACFStED OCI 709), 

QCTOSCLD TANS30)  ATBRASE DD PANGS) CVSTOTD TCStIdD. 
SUMS CNT (240), CHE LCNT(25)) , {HRCNT (269), 

GUN CODE CNT (273), (XRCOOE .CNTI2BI, 

‘TF0SF CODE .NDi4S) 3, (SRCOODE .NDI461), 

OSNSPMIN.CNT( 170), (NSPMAX.CNT( 182), (XXCODE CNT(1900, 
BUXPCOOE .CNT (201), (NSPAR CNT(2119 CC T.CNTI229) 


EQUIVALENCE (ACSSID.O143810, 

UESPOCED TEL2B2d), CSPNEDE TEL2CS)0 CTHICKI IE THI9I6II, 
B100P261) 0683679) MOOPIILD OLISTIDD, 
BAVOULCL) TCG TIT CYBLICLD Te69OIF, 
‘S¢aCDLN) .DOP2(3)), 1ACOLN2 .OOP2t4)), 
GCACOLGE ,COP31311 CAC G2 OOPS), 
TETCPNLU.CNT 628), CTCPNLE .CNTI30!)  CICPALI CNT(3i00, 
QUTCPREE .CNTI321), SICPILA ,CNTI330). 
@1OCOS TLL) D1 7851), COCNOSTI1) OL 77 
A. CAPRISOCLD,TC10702 4, CNMAX,NOSS191, (NSTAT ,NOISS99 01SEC NDIG2I9 
B, CSHBCP END O64232 2, (DROCUE ED DIDSID) COND L) Dt) 
© CSRUMIN, CHT IG) T, (SLLPSIN. CNT E91) 
©. USKLUOIS F .CON2BI ED, fSHLLOEI) .COL2GeD? 
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1917 
sie 
1919 


(ut LIST IMS AUTH UCd CHART SET - S-CTP 
eeen CONTENTS 
ig 
¢ 
INTEGER FLA 


annanananaaana 


3003 


303 


33° 


INTEGER SPCODE ,SKCODE . TYPE 
INTEGER SFCODE ,SACOOE 


REAL NSPAR 
REAL NSPrIIN HSPHAX. ICL 


SPCODE © XPCOOE 
SKCODE © xKCOOE 
TYPE © KIYPL 

SFCOOE = XFTCOOE 
SACOOE © XRCOOE 


#eeSETUP SEARCH DATA--TEST 10 FOR TYPE OF DISIGNeC? 
*#1DSDtN3IGI=ACSSIO. O=SEARCH, FelIPUT B, 2st PUT NOS? 
°F SEARCH, USE TYPE AS CONTROL 1D--1eCONST NOS. 298 


eof OR FOH SAVE CORE DATA IN SPB AND SIN ALRAYOSC® 
INPUT NOS © CORE DENSITY IN LO/CU FT AT STA CUTS, 
© LF THESE INPUT DENSITIES ARC OFSIACD.* 
$ USE CALC DENSITY IF NO STA INPUTS? 


00 300 t°1,22 
sPoilh = 0.0 
EPNiN) © 0.0 
CONTINUE 


eerINITIALIZE M-PLIES FOR UPPER AND LOWER SKINGS#? 
00 3003 '1,11 
Baus) = 1.0 
BALOrh) © 1.0 
CONTINUE 


*eetEST FOR FOH OCSIONee? 
FLAG = 0.0 
IF USPCOOE - 2) 300%,3004.320 
1F €ACSSID - D119) 303,301,303 


SINPUT @¢ 
DO 302 Jo1.11 
SPB ty © OCBSTI I) 
SPNCIL) © WEEE D/SPBITD © 1.0 
CONTINUE 
G0 10 350 


@ INPUT NOS® 
OO 30% fet. 
SPNI1) = OCNOSII) ¢ 2.0 
SPRCED © WUS,DD/ESPNOED ~ 4.09 
CONT TINUE 
@ 10 Ko 


*SEARCH--TEST TYPE OF ORIENTATION--CONST B OR NOS? 
FLaGet 
IF CTWPE - 2) 308,306,306 


*CONST B -- SEARCH BMIN TO SPAX--ND ROUND ON NOS* 
BO 307 194.51 
SPOt1) = BSHIN 
SPNCTD © MUL, D/SPBEI) 6 1.0 
CONTINUE 
@0 To 350 


®CONST NOS---SEARCH FROM NOSMAX TO NOSMIN 
IF CNSPHMIN + NSPHAX) 309,309,310 
La = 0.0 
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AUTOFLOW CHET SEY - SHEEP WING AMD CHOU MOCALE - 


O6/1N7™ TP UT LISTING 
ARO NO cece CONTENTS eaee 

1908 310 OO tt deli! 
1908 SPNIT) © NSPMAX ¢ 2.0 
1990 POLED © WELD IZUNSPHAX ¢ 1.07 
1991 Sit CONTINUE 
tee 60 10 350 
1993 c 
19% ¢ eeeFULL OCPTH HOPE COMBS TEST FOR INPUT CORE DENSITY** 
198 c eUNSTIALIZE SPBCD-$17 = 1.0 FOR CCFE CRUCHING LOAD CALC 
1996 ¢ ° SPBCL2-22) © INITIA CORE CAbalTY, te/cu IN 
1997 ¢ e S$PQIZ3-33) + CORE COIL ONE 
1990 ¢ . GPNUT-112 © INPUT/CALE CORE OONSITY. LOsCU FE 
1999 c ° gpwci2-22) = CORE Cel SIZE 
2000 c 0SPNC 23-33) WILL CONTAIN Finck CORE CENSITY. (B/ CU IN 
2001 c 
2002 € **FL AG WAS BEEN SET TO 0 FOR O'E PASSe* 
2003 320. 00 321 tet.tt 
2004 SPRCL) © Ol? 
2005 SPAtieit> = ENCLLD 
2008 SPBCte22) © ENHIG) 
2007 GPNGT) © ENCI1D9L723.0 
2008 SPNCTeLd) © ENNIS) 
2009 SPNCTe22) © SPBILett) 
2010 321) CONTINX 
2011 
2012 
2013 tf ¢ACSSIO) 350,350, 322 
204 
2015 ¢ INPUT DENSITY IN INPUT NOS ARRAY* 
2016 322 DO 323 ledtl 
2017 SPNIL) © DCNOSTE? 
2018 SPOCloryy © SPNI1)/1728.0 
2019 SPOIL} 633) © SPBLTel1) °CNHIG)/ERT IT) 
2020 323) CONTIN 
2021 ¢ 
e022 ¢c 
2023 eseINITIALIZE DATASSe 
20m HO NB = 0.0 
2025 BO 3500 193,12 
20268 clad) © 0.0 
2027 3500 CONTINUE 
2028 
2029 ¢ @°ePRINT CONSTANTS ON APRTIDI12) = 1¢*° 
2030 YO! IF (APRTIOCIZ)) 3503, 3503, 1502 
203) WC2 WRITE (6,105) 
2032 DO 199 K~1,36.5 
2033 seKese 
20% WALTE (6,1061K ,(CNTIKK) .KKeK,J.1? 
2035 109 CONTINUE 
2036 c 
2037 WRITE (6,102) CENPLK) Kel Od 
2030 € 
2039 WRITE 66.503? 
fal) 00 107 K=1,100,5 
aon Jere 
202 WRITE (6, 1060K, (THIKK*600) ,KKeK,J, 17 
20nd 107 CONTIN 
am ¢ 
BONS WRITE (6,104) 
B8 00 108 <*1,60,5 
a7 veKeu 
20008 WRITE (6, 106 1K, CTHIKK* 700) ,KKeK SLE? 
Ea) 108 CONTINUE 
2030 c 
a5! W503 NuAX = 0.0 
2052 ¢ 
e053 c 
20” ¢ Oe eSEARCH LOOP Oe? 
20% ¢ CANAL YIE TIP TO ROOTSS* 
208 3B Cua) = 8.0 
2087 SLUMIN = 1.0 
2078 GLMIN © 1.6 
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2100 
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2103 
Cita) 


2107 


2109 
ato 
au 
auie 
assy 
aus 
aus 
2116 
ay? 
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aus 
aize 
aie 
aie 
2123 
am 
as 
2126 
aie7 
a1 
aes 


iePuT LISTS AUTOFL Cot CHART SET - SHEEP bite AO CELE MOLE - 
eee CONTENTS aeee 
€ 
¢ 


mn nnea 


oO 55 Iskcet. 
NSTAT © 12 - ISCC 


GO % I+t.6 

CALCUL NSTATD © 0.0 
MELtih © $.0 

CONT IPA 
CALCIT,NSTATD © 0.0 
MIDE MIL NSTAT? 


SCCESTIMATED EFFLCTIVE CEPINS = FLYBAR CC.CRIOCe 
*eMEB DEPTHS ASSUMED 10 BE D-2¢(XLTA liaes 
oMIN EFF CEPT © 1.0 IN.¢ 
OCELCOV © YBUTUNSTAT? © YBULINSTATI 
WI © Wi2,NSTAT! - DEL COV 
MF tl - OFF) I511.3562,35t2 
D Ht © O11 
2 HS © WI2,NSTAT? - 2.0*DELCOV 
IF CHS = OC1DD SIT SSI. 3SI4 
JMS © OL) 
4 HF © TBFSINSTAT) - 2.0°0ELCOV 
IF CH + OF10) 3515, 35ib, 3516 
S HF © Ol) 
6 HR « TORSINSTAT) ~ 2.0°C£LCOV 
IF (HR + O69) 3517, 3519,3519 
7TMRe Ob) 


eeeSETUP CONSTANTS {(C1,C2.C4) b-abere 
9 B © SPRINSTAT) 
NSPAR © SPNINSTAT) 
Ch © DWSINSTAT) “OW SRSINSTATI 70119) 
C2 © DVRSINSTATDSIDUS) - DW SRS(NSTATIN/O019) 
Cw © SLEFSISPOISLCFSELE © SLCFSI2)) © SHOCPLI? © SHBCPi2) ¢ C7SP 
tani2) 


00 15 LCASE #1, WCASE 

SUL @VE2 .NSTAT LCASE I (HI OI WIOE +C4 2) SOCOUINSTAT) 
WS 123 9-W5 01) SORDD INSTAT) /ONXUINSTATE 

W513) °Vi 3 .NSTAT LCASEI/(2. (MIDE CHI) 


*#°CHECK FOR FOH--NO SHEAR IN CORE *® 
IF tC 3) - SPCOOE) The, 352.3520 


Wee W518) © VEN NSTAT LCASED/2.0 


WSI4) © ABSICISHS(GI AF ¢ W513)) 
WSIS) = 0.0 

W516) © ABSIC2°WS1B)/HR - WSISN) 
00 TO 356 


ComsSPAP ?* 


F520 WS1G) = Vil NSTAT LCASE I /NSPAR 


WSIS} © ABSIWSIBI AHS) 

MSt7) = C1161 

WSIN) © ABSIWSI 7D @ WSCSID 

WO AWS) + ABSIWMSE7I1) 353, 354, 354 


WS WSt4) © ABSIWSETI? 


WSC7) © C2MSIBIZHR 
W516) © ABSIWSI7D - WSCSTD 
If OB(6) + AMSIWSI710) 355,356,356 


F55 WS(6) © ABSIWSI7)) 


We 008 Ie1.6 
STAESSC! STAT UCASE DoWS IS) 
8 CONTIN 


IF (cibs @,01.00 
© LUCID AWS CLD AENK2 LCASE DOCS 
00 10 tI 
O CLUB debs t hE ENKAT LCASE DOCS. 
1 OF ASt2b0 203,08 
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OCS 


COIS 


CARD tO 


2933 
2uyl 
ase 
2133 
an 
an 
21% 
2137 
aise 
2133 
2180 
aust 
2is2 
aint 
214s 
ais 
2ts6 
21497 
2148 
21No 
2150 
rity) 
ase 
aiss 
t sha) 
2195 
21% 
aus? 
aise 
2159 
aaa 
2161 
262 
2163 
Pit?) 
2165 
2168 
2167 
2168 
2169 
a7 
a7 
auze 
a7 
ain 
an 
21% 
e177 
ik, | 
2179 
269 
a181 
ase2 
2183 
fil a 
2165 
2166 
2167 
rit] 
ave 
2190 
ase 
aie2 
2193 
rit a) 
a6 
e188 
a197 
2198 
as 
e200 


(EE SAE OIRO ELON ee ed nee mm 


Meut cist - BO fet CHAT SET ELH 


ir 


4s 
a3 


619 


ananan 


167 


c 
c. 
€ 
c 


€ 


Ce ENTS 


CeelrenSse2 -Tmrt2 LCA Ered 
wow 
ELS. enh EEN AC ACE NOCD 
CUE Tae 


Bo CO 3°36 
ELEGe © dO UNSC PATEMNCZ ECAC e CS 
CONTIN 


00 159 f1.€ 

HF CCRLCOL STATIN $60,150.15) 
CRLCOL STATE © LCASE 

IF CEL ebb RE eu ctoe GO TO 153 
MELCE EL CL? 
CRUCULBSTAT ORL CAL 

CONT ae 


COUT te 


00 £9) [1.6 
MEL(}) © ONTOOTL OLED 
CONT Tut 


Ceeheextuen 
€ce2verF_ egy 
CL terexene2s 
EctSrem tay 

ELC@erxri ew) 
CLENDeZLCSD 
CLetyderiees 


CeOINTIAL EST OF H-PLIES = MAX OF 
*h. STAIN ST. PLIES? 
2. SIATI-39 Fina M-PLIES - 2° 
#3. PASStd 1) STACED Fi M-PLITS LOSS 2° 
MEL(7) = QLUMIN - 2.9 
MELIBI © SARIN - 20 
UF CSLURSIN = GLUON TAIN) 109,161,968 
MELI7) © SXLUOINSTAT? - 2.0 
UF CSLLPIN + SRLLOUNSTATIOD 162,163,163 
MELI@) © HALOMGTAT) - 20 
(F CEL G2) - XELE7D 164,165,165 
€Lt2) © ELE 
16 CELtS) = XEL8)) 166,167,167 
CLES) © EL U8s 
ELE) © Vth. e? 
CL t6) © mis) 


COOPRINT SECTION CNSTAN'S OF APRIIDIIZ) = beer 
WF CaPRTLOLL291 1009, 1009. 1001 
WRITE C6 CODER) Kod Os 
FORMAT CPHO WS" 9016.08.77 NE16.8) 
FORMAT £7) AEL*.€£16.8) 
FORMAT CHO Che 5016.8, /77% 5016.85 
FORMAT 154) ENO) 
FORMAT (6H END 
Formal tA CNT) 


FORMAT CIM .3X,13,5016.8) 


WRITE CG POR PURER UK) Kod) 


eeoSTART BOX DESICN--TESE FOR M/SPAR OR FULL D/Htere 
UF 4} - SFCOOE? 430.130.1300 


SoFULL CEPTH HONEYCOMB OCSICNOS® 
eoCALl SUBS ACHITDH FOR UPRALWR SKIN AD CORE DESIGNS? 
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ites ASL 0% ENN AGE PARE 


a IP SAA TET NEE LINOLEIC FEI HEN mr om re 
er8/m INPUT LEST ING 
oe) seer CONTENTS 
een 130 CALL ACWOM instar? 
2202 
2203 € MT CLOG, UN ,12) © 0.0° 
ae Ces 2 oe 
2205 meee 
2206 qa ee. 
2207 00 10 230 
2208 € 
aeons € 
2210 ¢ 0 CUPPER COVER DESIGN: -M/SPAR-PLATES OR WC /PIL o#e 
een € eon aed = 1 FOR PLATES * 
aan ¢e erect = 2 FOR HCPL ee 
2213 1300 FACT = 1.6 
221s IF (SKCODE.C0.2) Factz, 
azis € 
22168 4eTOR COVERS=-SAME FCRC FOR COMPRESSION RIMAX? LESS THAN 
aei7 . 1 IF WOT StamiLity CRITICAL eee 
2218 FCROL.NSTATD © 0.0 
e219 RAAK © 0.8 
2220 00 139 LCASE!, ILCASE 
e221 tes 
Reee $31 CALL CKSTABIR.B.CL E29 EL ¢2),CL13) STRESS! STAT LCASED STRESS(3.N 
e223 ISTAT LEASE) FACT .FORC FERS UCASE TCPLUD 
ae IF 1.0 © WO R239, 033 
2275 mo1ee 
2226 Mura) © eed 6 1.8 
eee? CLeB) > wowed es 
aeze @0 To 13) 
2229 ¢ 
2230 ¢ OND SAVE OM TENSIONe® 
e231 133 OF ASTRESSCE WSTAT.LOASEDS 139.099, 00% 
een AF OF 62 = OP 135,135,038 
2233 19S ORIG NSTATD © FORE 
an FCRIZNETATD © FERS 
Fo] CRLCLS.NSTATD © LEASE © 20 
aes @ To 119 
2237 ¢ 
22m 1380 17 CRAK = 20 138,137,139 
22% 137 IF CFCRCE STAT) = FCRCD 138,139,139 
ame 112 mek 
ee FORULNSTATD © FERC 
az FORCZNSTALD © FERS 
eens CRLCIS.NSTATD © LCASE 
ae 139 CONTINAE 
as ¢ 
ae c 
ae? c @OOLOMER COVER DESIGHE®* 
ane ¢ OOF ACT = 1 FOR PLATES#® 
ene € eoTact © 2 FOR WC/PL Oe 
e250 ¢ 
eas 180 FORIZ.NSTATD © 6.0 
eese AMA © 0.8 
2253 BO 1N9 LCASE*N ILCASE 
wen tet 
ars WOE CALL CHSTABIR, EL (4) CL 153,066) SIRESSI2 STAT LCASE? STRESS! 3.6 
ores ISAT LCASED FACT FERC FCRS,LCASE .TCPMLLD 
a7 IF 00.0 + Rd T62,183, 893 
one We ELIS) © CLS) 6 4.8 
anne Lee) = we,S) 
ee @ To it 
ore 
oaae OND SAVE OM TEMGION LOADS¢* 
ones WO STABILITY LOAD ID FOR TENSION COVER? 
ate 183 IF CSTRESS(2 STAT ,LCASED) 168,158, 16% 
oes fee IF 2 = 12 195,085, 188 
16S FORCE.NSTATI © PCAC 
eee? FERINWBTATI © FERS 
@ 10 189 
e 
an a eT a | 
een 187 1F CF CRUB.NSTATD - FCRCD 188,190,199 
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seee 


ge Se) 2 HN 


AUTOFLOM CHART SET - SHEEP MING AO EPPO MOOS - 


SARA 


06718 


CARD NO 


2272 
2273 
22n 
2B 
2% 
a277 
2278 
an 
2200 
eat. 
eee2 
2203 
224 
225 
2286 
2207 
ae 


re97 


INPUT LASTING AUTOR LO CHART SET - SHEEP WING AND CMPEIBAGE MODUL - 


ocies, CONTENTS 


te@ AMAX eR 
FCRUS.NSTAT? = FCRC 
FCRIS NSTATD © FCAS 
t88 CONTINUE 


*°°SPAR DESIGN FOR M/SPAR AND TDW CONST ¢ee 
eeeSETUP TLU.L) AND C1U.0) FOR CRUSHING LOAD CACSEe 


nana 


230 00 2300 I*t,2 

we ley -2 

TRICKIDD © EMPEQTODIZICLEL IND © OC2PCL INE) © EL ene2nd 
2300 CONTINUC 


SPCRUHINSTAT) © 0 0 
c 
AC OO 244 LCASE=5, ILCASE 
PILCASED © 0.0 
00 2&2 [1.2 
IF ASTRESSUDNSTAT CASED) 242,242 2400 
POON 193 - 2 
CUUETD © CONQEE UCASE CEL UND ¢ DIZPCEC (NOE DENQEY LCASED © EMQI2,L 
UCASE POEL (Ne2 DN OCP IQI/THICKEL) 9DL2) 
PP © SIRESSILNSTAT UCASE Pe2eB/CTHICKIT DOE NICD) OHS) ¢DI2) 
IF {PULCASED - PPD 244,242,262 
Bl PULCASE) = PP 
@2 CONTIN 


IF (SPCRUHINSTAT) - PILCASE)? 243.264 24% 
B43 SPCRUHINSTATD = PILCASE? 

CRLC(T,NSTAT) © LCASE 

PM © PLLCASE) ZENKCL LCASED 
ae CONTIN 


COMIN WOOF L PLIES © 108 
L071 © INTIPM © C3) 
UF CELOTE = OF9D) 245,266,265 
aS Elis) © OFF 
2G EL110) © ELE 
ued) © MLE 
CL (OKI 7,a0 
EL Cb2somnis.itd 
CL CIS pom, 04) 


CCF RONT SPAR DESIGNSS? 
SCORPUGATION OR HC /PHL © 
Fact > 1.281 
WF ($FCOOE.£O.2) FaCT$2.S 


CooSETUP MLOWAMLE STABILITY LOADS AT CRITICA P/A CONDSS? 
GIO tCASE © CRLCINNSTATD 
CALL CKSTAB (ROT EL 17) EL CB? EL LO PILCASE} STRESS (% NSTAT LCASE) 
DF ACT FOR CRS LCASE TCP? 
FCRLS NSTATIOFCRE 
FCRIG NSTATIC£ CRS 


*oCHECe ALL L.. "OR STABIL I Tyee 
OO GIS LCASL=1, 1LCASE 
Pel 
G1) CALL CKSTAD OR WE ELECT) EL CO? EL CD? PILCASE) STRESSI% NSTAT LCASE? 
TF ACT FCRC ORS LCASE ,TCPMLE) 
1F (1.0 = Ro 62,613,053 
ez 12 
CLO) © Lied © 1.6 
CLIO) © mNt7,8) 
@0 10 611 
G13 tf fe 11 GIs 615 
GIS FCRIS NETATIOLCRE 
FCREG MSTATIOFCRE 
CALCI% ETAT Po200L CASE 
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OLIN PINT CISTI AUTO G CHT OFT = Ce WING AOE NO 


CARO NOD eeee CONTENIS cove 
2s 615 CONTING 
ans c 
25 c 
26 c eooINTL RS SPAR SEB Ci SIGICSe 
2Nt c POCHECK FOR FULL CCPTN HO SICOD Stow orl tee 
ane €20 FAT © 2.8 
29 IF USPCOCK - 2) 6200,6201,.630 
2x0 6200 FAT © 1.21 
23x51 c 
2s c Pees TWP ALOE SI/DILITY LOVDS AT CRITIC FA COD eee 
2353 G01 LCALE © CRLCIS NSTATD 
2% CALL CKSTAD CRLMS EL E1OD ELUTED CL CE2) PUL CASED STR EIS TAT LCA 
25 HSE) FACT CRE FORD LCASE TCS) 
2x6 FCRET STAT IOFCRE 
2357 c 
2x0 SCRIBMSTAT OF CRS 
79 c HCHECK ALL LOAGS FOR STABILITYe* 
2360 OO G25 LEAL WI LCACE 
eu ter 
2M2 GOL CAL CHSTAD ORLHS EL ENO) CL CPE) CL E12) PEC P ED SH ESSIS NSTAT ACA 
23 1S) FACT LF CRS FCHS LCASE ICPIA DD 
aus WF 61.0 - Rd 622,623,623 
25 @2 t+? 
aus Curtis © CLity 6 1.0 
2%7 €Len2> © MNCIO,NED 
2365 Go 10 G25 
eu c 
2370 623 if t2 - 1) G2¥.624,625 
es GA FORT NTAT I CRC 
2372 FCRIB STATE PCR 
2373 CRICIS.MSTATS © 20 © LOCALE 
an 625 CONTIN 
2345 c 
23% c 
2377 c *erRE AR SPAR CESIGNSS® 
237% c SCORRUGATION Gi HC /PIL © 
239 630 Feet © 1.21 
2380 UW tSROOCE.£0.2) FACINS.S 
au c 
232 c 20SEC TWP ALLOUOLE STAMILITY LOANS AT CHETICA. PLA COD te 
2383 UCASE © CRLCIE MSTATE 
2 CALL CKSTAD (RHR ,EL C13) EL C14) EL 01S) PULCASE) STACSSIGNSTAT LCA 
em USE) FACT FCRC PCRS UCASE CFIA RY 
230 FCRIDPGTATIOFCRC 
27 FCREIO .NGTATIOFCRS 
23838 c 
29 c CHECK ALL LOADS FOR ST/UILITYe* 
2390 OO 635 LCAGC*1  ILCASE 
2391 ter 
2392 G3b CAL CRSTAD URW CL ONS) CLOTS EL 01S) PUL CASED SINCSTIG .NGTAT LCA 
2393 USED FACT FORE FCRS.AC/SE ICPIRRY 
23% IF 61.0 - Rd 632,633,633 
2355 632 1-2 
2336 Ltiwy © ELeiy © 1.0 
2397 LOIS) © EES INe 
2398 @ 10 631 
299 c 
00 633 WF t2 - 1) 634,634,635 
no SP FCRID.NGTAT OF CRS 
oz FCRiLO.NSTATIOFCRS 
aos CRLCIG NSTAT I o20+L CASE 
Pola 635 CONTINUE 
nos c 
06 c 
07 c o°SAVME UPPERAL CHER COVER M-PLICS FOR NEXT STATICUSe? 
~oe UMIN © ELIZ) 
no SALAIN © ELIS) 
ato SLUOINSTATD © ELt2) 
au SPLLOINGTATD © ELIS) 
wiz 
ay ¢ 
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0611S 


CARD NO 


as 
ats 
ais 
a? 
wie 
ay 
a20 
wei 
eee 
m3 


ay 


a9 
2440 
evel 
a2 
a3 
an 
aes 


ane 


ened 


AS 


ass 


E90 CAL HEC CHE IGHERSTALS AGT ATE 
1F tt - USEC) 691 692.692 

691 WEIGPINSTATD © LEI CUNSTATOND © LEYGHINGTATIDSLYSTINGTATOND - ST 
UInSTaT 1172.0 
Curd) © ELREET © BL FOPINSTATS 


*OSAVE PLY DATAS#® 
692 00 693 1*1.15 
TEUCU NSTATIOCL LD 
693 CONTINAE 


eeeeLO0P FOR PEXT STATIONS 
35 CONTINUE 


SeePRINT WEIGHT SUPPUARY DATA ON APRTIDI121 = bere 

6990 IF CAPRIIDG 121) 69399,6999,6991 

S991 WRITE CGP 7CLWEED 

17) FORMAT (ISH) CALC WEIGHT*F 10.42 
WRITE (6, 2Q0(HEIGPCLI 19d, 50) ETCHED) Ped dnd CSPBCLD ded dares 
WPNCTD ede 

10 FORMAT (10HD) «= APNE» 10F9.3,/1CH WT/IN© 11F9.3.740H0 [ Pe 
19.3, 7100 NOSe BIF9.3) 


eeeTEST 10~--OeND TESTees 


6999 IF (FLAG? 700,400, 700 


s¢TEST NB FOR LOOP 1 OR 2. OLOOP 168 
7OO IF (NBS 701,701,750 


77. UF CELWI201 710.710. 702 

c TEST WTCT) WITH WICL-11e 

M2 IF CELwdd ~ ELei2es 710,703, 703 

c 

c S*CALC INTERN PT. USE DELTA B2 OR DELTA NOS2<* 
¢c °SET NB TO § AND MOM [I-13 DATA TO 1-21, 

¢c a: (1) DATA TO tl-L9e 

7O3 Wel 


OO TO fe1,1t 

SPO 1e22) = SPBITe 

SPNETe22) = SFHILOEID 

SPOCtontD © SPBCtD 

SPN LODE) © SPICED 

BAU 122) © SAU Iedh! 

MALO 122) = SLLOL felt) 

LUO edd) © SUOITD 

SRLLOIE 11) © SKLLOWED 
Toe CONTINUE 

CLs) © CLMC2? 

Cinr2+ = Cua 


feeTYPE © SPAR ID--- I1eCORGT HOS, 2°CONST B SEARCHES? 
{F GTYPE ~ 2) 707,705,703 


SCONST Be 
703 «(00 706 fe1,11 
PBI) © SPBCI) - aCOLB2 
SPNCT) © ELLEN 7SPBC 1) 6 1.0 
708 CONTINUE 
00 10 3 


®CONST NOS< 
707 00 708 Tei.hi 
SPNEDD © SPNITI © ACOLN? 
SPOUT) © WELLE USPMET) - 5.08 
‘708 CONT IMUE 
00 To 3 


SeoPTiL) © FIRST POINT OR WTIT) LESS THAN WT CTF 
710 WF CTYPE - 2) CL TNA Th 


2588 


UreVE LIST ite, MITOFL Cod CHART SET - SHELP WI AO EPCRA HOO - 
esee CONTENTS. eeee 
c PCC ALC WI/IN WO WIFIh ore 


Ce hets try bistin, AOPLOM Crt CCT Stk Wits MOU ot boo et 


carom cortcnts eoee 
os c 
a6 
207 c OOCORS! B OSES Me TEST AF BTEGe TS AL et here 
ace 71k WF 0B ~ BEMANY 782,899,6.~ 
ae V2 Conese = Clee 
eno GO M3 bette 
aon SPBtLett) © Sucks 
aa Suchet ty © SPucit 
eas SRLUOL Tedd © GauetD 
an SLLOME thd © SALOrte 
an WS COUT 
ae c 
eo7 IF 0D = USMAK + 2 OP) 78, 757,8oe 
am 
an c OUEST Gedd © GEL TA Bt WITH Erte 
m OC c oF COS Tes OMI, USE THES POINT 
201 Tis WF tb = BEAN © ALO GED 785,715,907 
mae ns Os O+ Al 
eas 00 746 Tet at 
eo spitr - 8 
05 SPrety) = WEP Sets 6 £6 
2506 NG Coulee 
jor @mios 
oe c 
2509 c “BU Let DeALTA G2. SLT NGeh, WICS re benT ions 
a nN? wed 
a ELMS) = 2.0°CLHI2> 
aie 8-8 - ABI + AMO 
S33 tt (BEMAN - #9 Eo 71S. 7S 
se 
a“ COONS NOS Theat ast tt the Wh ars mere 
ic i +°°CONST MOS SEARCH CST IF PIETY IS A oe 
an 20 16 UR IN = ROPAR © 2.0) 721,600,600 
213 Fea Clute: = CLWtE 
a9 00 We? tet 
220 PRisit) = SOND 
ae SPMCLeri) = SPMtLD 
aLe SAU tettd « Saude 
223 SVLLOU IOLA) © SMLLOCED 
= Tee Contin 
ae c 
228 NSPAR = NGPAR - ACCUNE 
we7 IF OGPRIN © NEOPA © 2.01 223,725,729 
ee WS OO Fe Debit 
“oo SPILL) © PA 
230 SPRUE) = WEE ED crPAR ~ 8.08 
Ft) Tee CONTI 
Br ows 
23s ¢ 
an c *OMEKT PT © Piete ~ CELTA PeDct2aee 
as c eOMEXT PT © PIECED © DELTA Neost2iee 
my c OT MD ol, WTC Thee uTIeN ee 
37 Med 
Bw TLMEd) + 2.0°CLMtes 
= NSPAR © NGPAR + ACCOUNT ~ ACEI? 
m0 HF AGAIN - NSPAR © 2.0) 723,723,600 
am c 
BA? e 
ay c ¢*LOOP 2---1051 FOR MIN PT FROM MITT, WET- TD, MEL-2rere 
taal c OCP FOR FINA PASS IF MIN IS HEE-1) OR WIE-20e 
as c “ST FLAG 10 OF 
me c FOR COUA MISS USL PT WITH LARGER Be 
a7 RO FLA + 0.0 
ae WF CCLwe3) - CLMt20) 751,754. 7 
Pa) Fat WF CLWt3) - CLWLE)? 752,000,600 
250 € 
Pel] ¢c OUSE PICS}. SET B.NOSTII © B.NOStI-Biee 
ed Wz 00 BS tet. 
ws Ort) © SPDEe22> 
“ms SPUCLD © SPNELeR2» 
~~ SLUOIID © SKLUOIT e221 
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O67INe 


CARO NO 


INPUT LISTING MITOFL OM CHART SET - SHELE WING Ah: COPEL MOOUE - 


aces 


m3 


a7 


aAana 


Coes 


¢ 


CONTENTS 


PLLOLED © SLLOIIeo2) 
CONTINUE 
wots 


oPptcl) MO PTIL-aree 
UP tEbetcas - Cuacth) 735.609.0807 
CO 76 1-t.it 
SPRUE) © SPBilest> 
Senedd = SPNITeLED 
SKLUOITS © SxLUOt belt) 
SULOCLD = SALOFIett? 
CONT PMU 
@to3 


@eeCM’ STIFFNESS DATAcee 
CALL SUBR ASTIFF* 
Cau ASTIFF 


RETURN 
[No 


CHCCRATTHATTTCCOTTATITETTCERET AC TETSLeNSensoeevErceeeseTeVeseRCETS 


08 ¢ 6 ¢SUBROUTINE ACHE DH? 


*°eFULC-OLPIM HC SECTION OPTIMIZATION - ADV. COMP. ANAL YSIS?*? 


aanananananananaaa 


a 


SUBROUTINE ACHEDH INI 


eee eSuBR FOR SIZING OF FULL DEPTH HONEYCOMB TOROUL-BOXeree 
CHECK SECTION COVER AO CORE REOHTS FOR CORE STABILITY? 
° WRINGING AO CRUSHING? 


#e°SiZEINOS TO BE BASED Co STATUS OF SIZINO ID--ACFNHC eee 
PPACFDHE © OLN IiIee 

* 1. OPTIMUM SKIN/CORE COMBINATION--1090 

© 2. CONSTANT CORE/VARIABLE SKIN--IDel 

© 3. CONSTANT SKIN/VARIABLE CORE DENSITY--1D92 


COMPION 112060) ,012060) ,CD12000) NOt 100), THI900) CTI 20N8) 


DIMENSION ENPIS) ,CNH(6) ENCES), 

JEL 119) ,€NOt5,20), 
OSIRESSIGO,H1,20) .CRLC67,29) SPCRUMI 11) ,PI20), 
WRC, wee, ad, 
SCNTIDE? ,TFCOvi2), 
95°81 33) .SPNIS3), 
SIF I40) 


COUIVALENCE SCAPCID DC LASSod CEPI ED DEN 164) ENC ELD CTI2ON302, 
DEEL AGN, FE1TOOId ENOL ED, PHEGOND) STRESSES DEP .CTEND, 
RICALCEL, DF, 169803). CSPCRUMITD ,TE56320), P11), THIG9D), 

DAFCRED ND TALLQOND CONTEND TOLD) CCELCNTIIS2) (CB ,CNTI232, 
SCE DD CTCISOEDD, 

StSPBc id .Ti12320) CSPNE TD TE126SI0, 
BU ACFOME Di Fed), TILCASE MOOSE DD 


COVIVALENCE CTF Cds. 1 COzbta, 
ic ge ee Oa DO 
SECON. TF 110d), EPCRUSH, TF 119)), APCRUA, TE 12013, 
BIMEM, TE 210d, sRCC LTE 22s), 
OURO, TE 12311, OCC TF er) IHC IFS), 
SCRE TF I2OIE, CCRPCCR IF (291), 
SOA WDUDT HD, 
‘SIMMOPMAX 17 6 301F 


2590 . 


eove 


re Ar tari a orm an 


BeEUD LIST: MT eed Ce TE = 
fees COUtinis 
c 
i fern BE Wrti PEL tet EF UTED UID GY Aree Direee 
€ eo NOt TAteee 
ig 
€ 
€ Cees TE WEER FD LOR COMA be Teed PrEC(Seee 
€ OOSANE ECR FCT TSBIC abo bitsy Ime Y 
¢ POSANE PCED ACO COT de PAS LESS ee bE NOT 
c ¥e CRITIC A FOR MRI Les Coe CRUSHING Oe 
€ 1S © STAZILITY 10 AT LCD Pot fF INS. Lett, Bev Se 
€ LC = STABILITY BO AP LG FOR Coed, bet, EVES! 
€ 
c OOSETUP CATA EUR LOAD LOM AT CASTING Ree 
ry 
€ 
00 Pod Leb .ee 
mele + 00 


2ob Cob sed 
Mt oe Wie tt 
Chit} e Slutnegnt 
FCRttL.n = O08 
FORIS NE 1.0 
FCRII.ND = Oo 


CRLCUS.ND = CRU C ON NE 


c 
€ COPA AL COMR LDIF 
c ons = Sh dtd IN--bu UIR FIR GT eee 
NS ef 
ee | 
fo 2c 11,6 
Webb oe €Letb 
202 CONT INUL 
id 
c POH OAD CHECK LGteee 
210 00 209 Ll, CASE 
ise 
eed 


WF CSTRESSUNS .ML2! 299.209.2071 
211 CNA © STFESSINGS.NLLD 


¢ 
CML CYSFOHILD 
Coerocceey 
€ 
c eeoTERP MLA FOINT TEST See 


IF (NMAX - 1000) $33,933,299 
3 CONT IA 


c 
Coeesceee 
PCL) © PCRUSH 
c *OCHECK IMITIAL MARGIIG® 


fF «RCM - 1.09 212,292,230 
2t2 TF tts + Fb 2n3.e13.21s 


¢ *eCHECK FOR MAX ALLOABLE LOAD FCR COMRS?* 
213 UF AF CRIES ND ~ CREM 214,215,215 
2ie FCRUE2 ND © CRP 
FCRINSS OLN? © ChB 
IF OGNS = 9) 2150.2149,215 
21490 CRLCIS.NI OL 


*#CO-ER OK FOR WRINKLING. CHECK CRUSHING?* 

21S MF CRCC - fOr 216,216,200 
216 WF C8 + 99 217.217.2869 
217) IF SFCRI7,NI - PCRUAD 218,209,289 
210 FERIT,.ND © PCA 

FCRIO,N? © PCRUA 

SPCRUHIND = PCRUSH 

CMCIS.NI OL 

00 10 209 


SeeCORE CRITICAL FOR CRUSHING, OK FOR WRINKLINGS® 


Zo01 


OMEN LRT LAC PTET PITRE ON IN OTe OER RO ERE TI 


L Jabra) REVI CISTI bes AITO Ged CHAPT SET - Sed CP Wit, RO CMPCreucl MIOAT ~ 
CARD NO eee. CONTENTS cles 
2690 c *CHECK TYPE OF DESIGN * 
2699 220 tee 
2700 FCRI7ND © CRECCP 
2701 CALCIS.NT = Le 20 
2702 16 th + ACFOK) 221,260,270 
2703 
Cai) ¢ SeeCONSTANT SRIN, VARY CORE OCNSITY- USE CAC RHO CORE eee 
2705 221 CRO © AHOCC 
2706 GO 10 209 
2707 ¢ 
2706 € OO CWRINKLING CRITICAL --CHECK CRUSHING*? 
2709 230 IS *2 
2710 UF URCC + 2.0) 231,231,280 
27 23 IF cic + Ob 232,232,240 
ene 232 IF (FCRO7,ND - PCRUAD 233,240,240 
any 233) FCRI7.N) © PCRUA 
c2ih) FCRIB.ND © PCRUA 
2s SPCRUHIND © PCRUSH 
2716 CRLCIS.ND OL 
e707 
2718 c © °CORE WRINGIND CRITICAL, OK FOR CRUSHING--CHECK TYPE eee 
ene 20 FCRINS.ND © CRIXCP 
2720 TF UNS - 2) 241,241,242 
a7. 2vb CRUCIS.N? = L * 20 
2722 B2 IF th.8 + ACEH) 243,260,270 
ems 
27 c *°CONSTANT SKIN OESIGN--USE CAC CORL** 
275 283) CRHO © RHOCH 
2726 @ 10 209 
ave? 


} 278 c @e°CORE CRITICA IN WRINKLING AND CRUSHING--CHECK FOR 
2729 *CRITICA DESIGN CRITERIAS** 
2730 ao «es 2 
j e731 FCRINS2,.N) © CRNXCP 
2732 iF (NS + 1) 251,251,252 
2733 251 CALCES.ND © Le 20 
27% @52 FCRI7.N) © CRECCP 
2733 CALCIS.ND © L020 
27% SF (1.0 - ACFOHC) 253,260,270 
H en? 253) CRM © RHOMAX 
273s @0 10 203 
avy 
J 2no c OVARY SKIN ONLY--ADD ONE L-PLY IN SICPSere 
em 260 Wels = Wide 6 1.0 
ane Wed) © RNTCRTFIND © 2.061) 7 oReCe © C3? 
23 c 
i any c 
i ans CAL CKSFOHIL? 
} ane Coeeeceec 
an? ¢ 
§ ene ¢c eeeTEPP MAX POINT TEST eos 
‘ ans 4f tNMAX - 1000) 990.990 .299 
{ ano 990 CONTINUE 
; al c 
ame Coerocece 
em tf CIS = 2) 261,262,263 
ah 263 FCRINS2Z.NI © CRANK 
274 If INS + 1) 262,262,263 
ane 262 CALCIILND © Lo 20 
an? 263 IF NIC - 2) PON PRN 285 
ane fe FCALTLN) © PCRUA 
fac.) SCRUM) © PCAUEH 
ame CRLCIS.ND © he 20 
a) 
a@nmz ¢€ @OCHECK MARGING=* 
273 265) «(IF (RC - 1.0) 266.206.260 
a 206 IF 11.8 - RCC) 260.209.2089 
ae 
ane 
an € ceva SKIN AND CORE--A00 O€ L-PLY IN STEPS *<* 
ane 27 TFUIS) = CNPLODSTFCOVIND © RPAH 


2592 


O6sIN7 hm 


CARD NO 


2% 
2770 
2771 
2772 
2773 
27™ 
274 
2776 
2777 
2770 
2779 
270 


2783 


2"? 


a7 


ans 


HeUT Cistit AUTOFLOn CHIAT SET - SEP 


sees CONTENTS 


271) FCI © Wa see 
ivcpe eo Wet e 8.6 
TRIS © TNTCUTF CL) @ 2.0°TF Ihr eCB © CY 


€ 
€ 
CALL CKSFOHILD 
Cereecece 
€ 
¢ feoTErP MAK POINT TEST eee 
iF (NAc - 1000) 991,991,299 
991 CONTIIZE 
¢ 
Ceeeeccce 
WAI!) © CLPCBeTP COVES) © RHOMAXSHE 
CSTE’ MICE) WITH WECE-T9ee 
W CTE CSD - TRU320) 272,273,271 
c 
c *ORESIZE TOL-PLYII-1) SETS* 


272 IFtth = Wid - 6.0 
THES) © ENTACTF CAD © 2.0°TF(21FeCe © C3 


CAL CKSFOHILD 


Ceeroccce 

¢€ 

€ eosTER® MAX POINT TEST *** 
(F tw - 1000) 992,992,299 

992 CONTIN 

¢c 

Ceeeocccc 

¢ 

c CRITICAL LOADS TESTS<¢ 


273 IF GIS - 2) 26.2% .276 
2M FCRINGE ND © CRNXCP 
OF OINS + 1) 2%3.275,2% 
275 CALCIS.N)D © Le 20 
2% IF CIC - 2) 277,277,278 
277 FCRI7.N) © CRPCCP 
SPCRUMIN) © CRPCCP 
CMLCIS.NP © L © 20 
278 PIN) © PCRUSH 


*¢°LOOP FOR NEXT LOAD CODITION®©* 
203 CONTINE 


© SCHECK SKIN STATUS ¢** 
290 «IF (NS - 1) 291,291,295 


COUPER COVER. SAVE DATA AND SETUP FOR LOWER? 

231 00 2%2 I*1,3 

Chebh « Thats 

Tete3) © WItD 

Weld © Cusdeys 
282 CONTIN 

IF CACFOHC) 29% ,.293 20% 
293) CRHO © RHOMAK 
mH Me? 

ws2e 3 

0 TO 210 


“A GMER COVER?* 
1 (ACF OME) 297.296.2397 
CAMO © ROMAX 
Guise © Wen 
ELS) © Tri2t 
CLS) © Tide 


333 


sceSETUP FINA CORE DATAcce 
B88 SPHINS22) © CRHD 
SPNINI © CRHO°I 728.6 
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WIG AO Ets (rect MAL - 


' 


6187 


CARD NO 


eran : 
(Pur LISTi te AUTOR L Gad CHART SET - SHEEP WING Ae Ee. 
evee CONTENTS basa 


SPB 22) = CRHOSSF Died Eb Cras6) 


ra 


aanan 


ovetxt tose 


299° RETURN 
co 


Cousseser 


¢ ree eSUBROUTINE CKSFONer eee 
C | C*GTABILITY EVAL FOR FULL DEPTH HC CORE/SKIIT = ADV COMP. AUALYSIo“ee 


Cecasessusecscureseecseueeseeereseurecereeeseteueteeueeeene NHOCETTE TONS 


c 
SUBROUTIFE CHSFDHILCASE? 


*eeSUBR FOR FULL CEPTH HOLE YCOMB OCSICriseee 
eeeC ALC SKIN AND CORE STABILITY ALOWA™.£S AD REOMTS*C* 
*@°GIVEN COMPRESSION SKIN L.MLN PLIES, PX, CORD DENSI TYe* 
*CALC ALLOWADLE HAIIOL ING AND CRUGHING LOADS FOR 
. SPECIFIEO SKIN AD CORE DENSITY® 
CALC REQUIRED COPE CONSITICS FOR WRITSL HG AO CRUSHING 
e FOR GIVEN SKIN LOAGS AO STINFENESSES* 


annonanananana 


COMMON TH2060) 012000) .CD12005) ,MOE100), TH1900) CTI 2048) 


OLPENSION ENP(9) .CNHIG) £015,201, 
IFDHCY (20) FOO E120) FOF GI203, 
2aPRTIDE121, 

OIF iso) ,TFCovi2d 


COUIVALENCE CENP CE? DC115599, CO2M01) OCD IG4ID, CELL) THIGOLD), 
DOP OHC HOS) THCON ODD, POMPE CLD  THIGSII) CFOMFGEN)  THIBOIHS, 

BETH ADD TH20200 9 CCNK TF C799 ACRHO, TF CB) ) CHEE TFSI), 
WCTFCOVEE? TFS1ON) TENE TRON290 £22, TF UTS) EBL TFA, 
SICEP TF GIS) (COP, TE CIGD) CECH TE CLT) E, (CRUNK TPL IBID, 
GIPCRUSH, TF C1902, (PCRUA,TFIZ09) (RCH. TE I2TDD ORCC Weed), 
TECRNXCP TE 62011, ICRPCCP TF 1290), (MHOMAX, TF A301), 
QEAPRTIOCN? TULOTOND CMAX,NOU 312), (NSTAT NOISSO9, 
DIRHOCH TF C235), CRHOCC TF C2000 CHC TF C250) 


eel = LOAD CASE INDEKeose 


naananna 


eeCALt SKIN THICIPESSES AND STIFFNESSES* ee 
L © LCASE 
AK © WX ¢ 5 


200 00 20: b-1.2 

NWele3-2 

TECON CLD © 2.OCENPIDISITFIND © 2.0°1F tNeL) © TREe2n 
201 CONTINUE 

We WEL - IFCOVIED - TrCOVI2? 


Ell © CTFCERCENQUE.LD © 2.0°7F C2N°ENOIG LD © IF USPOENDI2,LODODI20° 
TEMP CODIFCOVEET 

E22 © UTFCERCENQI2 LE 6 2.09TF 2s eLrdee Ld © TRESS ENOL LIPeDI20® 
TENP IS IF COVED 

CB © SORTICIIE22) 


*°°CORE PROPERTIES? *¢ 
TEI26) = CRHO/TNMII? 
WF C16 (26) - 0.0338) 202.203.2035 
202 COP = 2.u3eTF 128994) Se FOTO 
GO 10 aN 
PO COP © O.4OSTFI26) FOG) 
BOs CEP © Z.1SSTF (26h ood WISOFOME ILD 
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it Ad MOE - 


RELY TIE emer 


PRT: Reena: SONAR ene remem neroRsi: PURI me ro eee ‘ey a ‘ “ 
06718 HEVT LISTE MITOE LOM CHART SET = SHECE | WING WO CIE MODULE 
C4k0 NO ouae CONTENTS ees 

aon ¢ SOC ALC MLLOWABLES FOR GIVEN CORE OENSITIESS#* 
ee ¢ OCW LKL INGE! 
ans FCW © O.W3OCCEP COP HERI CO 1333 
re Th) CROWN © TFCOVEL DE CH 
2918 Ru 8 CNKPCE NX 
aoi68 € 
207 € e°CRUSHING. CALC CRUSHING LOADe* 
este PCRUSH = CNK*27 IF COVENT HC MELE 92.0 
aai9 PCRUA © TFCOVEND SR. UOTE (262401 WE4 FRC VIL IHC #*D. 160 
a20 RCC * PCRUSH/PCRUA 
eet 
zeze ¢ **COMPUTE CORE DENSITY REGJIFLO FOR GIMIN LOADS AO SKIN 
2923 c URINAL ING. TEST OENSETY FOR CCORECT COUAT IONS 
me 205 RHOCH © LPHC LES CACHixs TF COVEEI/O .435¢°3/5. CPE O/COHFGIL ICFORPEIL IDE 
225 190.3364 
2926 Wed) © RHOCW/ERE ID 
2927 
ae c CHECK CALC OCNSETY® 
ae If GtFt27) - 0.03389 206,207,207 
2930 206 HOCH © ENHLL DOC CONK/IFCOVEL1/0,439963/0. 652 /EB/TOOFGILITOMFEIL 
att perO.etel 
aor 
2933 ¢ °CRUBHING## 
ay 207 MHOCE = EMIT) OCPCRUSH/2. 31¢HC 990. 1BD/FOMC ELI 1 660.6831 
Fry 
2936 ¢ @POSELECT MAX DENSITY FROM CRYO, RHOCH AND RHC CO ee 
2937 c O°CALC ALLOWABLE WRINKLING AND CFLS 4ING LOAD AT RQHUXe® 
a 210 CHETP © CRHK 
2939 CRECCP = PCRUA 
20 PHONAK © CRHO 
am IF (ROH = CRHOD 210,211,213 
ame 211 IF CCRMD ~ RHOCC) 212,290,290 
am 212 PHONAK = OCC 
a @ 10 215 
ty 213 HORAK = RHOCH 

: a6 IF UCM - RHOCE) 214,215,215 

g aH7 2iIN OMAK © RHOCE 

iy ane 
ane ¢ *°CALC CORE € AND G* 
e950 205) TRI27) © RHOMAX/ENHII) 


WF CTR C27) - 0.0338) 216,217,217 


3 


CAPCLP = TECOVINI 2. SISTFI27I CO! WGN OFDM VOL DC #90. 160 


ame 216 TLIO © 2.436TF 1279005. SH OF OMFGELD 
y avs @ 10 218 
F a 217 TEV) © O.NGHTF L270 FOHFGILY 
¥ aes 210 TEU33D © 2.136TF 1270001 HISOFOME MLD 
4 me ¢ 
i ™m) CROLP = TECOVEND OD. NSFC TEATS OTE CFV) CERI 800. 3333 
one 
™ 
2960 


i C0CRAL AKPOINT PRINTS OC? 
2961 € *eCPRINT SECTION DATA ON APRTIDINSTAT) © Jere 
UF CAPRTIDINSTATID 299,209, 29% 
CRITE (6.295 1NSTAT.L NMAK 
FORMAT CINO/,24HO «(9 ¢*CKSFDH SUBR -- STA,12,12% LOAD CASE .1¢.0H 
TPT NOSIe SHE’? ,/OH0 TF 1 
206 FORMAT 13X.12, 3%, 5010.8) 


PRR 
332 


am? ¢€ 
00 287 Ko1.40.5 
meK eh 
2970 WRITE (6, 2062K CTF td dom IK ED 
nn 207) CONTINUE 
avr € 
71 ¢ 
an c 
c eeeogxifeoes 
an a9 RETURN 
aenr vo 
Covesscesccececccccetoncoseoseocugue 
an € 
wee € Coe OELBROUTINE ME IGHIseeee 
a8; € -SPOSECTION WT PER INCH FOR ADV. COMP. M/SPAR/TOM TORO -BOKeCe 
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OG INI 


CARD NO 


PUT LISTING AITO On CHAPT SET - SHLCP WING AO EMPRIFINE HAL © 
cone COsTENTS sees) 
cg 

Seveeru coceeeeeeesacceseeuccussevacreeuseceesnes 
c 
SUBROUTINE SE Iletl and STATE M1GIOIO 
€ 
G im se @ oe oo 8 @ . ee oe @ @ 
¢ ALL OLPTR MOE TCO TORDE-ROX OSI eres 
c eertsPl 10) PLATES -CCHEel AD SPCOCE © 1 OR 2° 
¢ e HO /PRL--SKCODE*®2 AND SPCWE © 1 OR 2¢ 
¢ ° FULL CEP TH HO--SxCOOK #1 AD SPCC © Fe 
tal e e ° ° . ° e e e ° . e e . « ° . 
c 
€ b€ 1G1020 
c 161030 
COMMON TIDICD) HE IGIONO 
€ bE 161050 
DIMENSION 062069? CT 12048) POV 100), +£161060 
ICNP CO) EPG) Frac ed) Chere, WE1G1061 
aur3or. 0 161062 
JSACES15) SHBCPLS) SHRM 12) OCH I20, MEISI063 
NSPOI33) SPHESI>, HE IGT 06" 
SAPATIDG12). 6161065 
BIL], 11) CNTESOD 161069 
c 6161070 
COUIVALENCE (DUET TE2OGLH HCC TEND TEFLSEID, WNOCED, TeGI2097, 4€ 161080 
RCENP CLE OC015597 CEPT OC LTS) rac dds CTi204300, 1010081 
QCLEDD TEE3SOOOD CCT CD) TON) CPEFSCW.CHI2ON7ID, WE 1G1082 
DPFESSP .CTI204B1b , (PERHO D14649d (CFRIB.O1N0OT) CSHOCK ELD C4279) WE IGLOOS 
SUTCPNLUCNT(2911  CICPRLL ,CNT¢39)),CTCPNLECNTESIOP, METOLORY 
SCTCPNLE CNT C320) CTC PMLACNT C3399 1C% CNTO LSD) INSPAR,CNTI2199, MEIGIOBS 
GUMS CTI 291, CHF CUT(259) tHRCNTIZ69), WE IG1006 
TUSFCOOE .NDI4SI) 1SRCOOE ND IN6I3, 161087 
Gerad), CTAISAt ID, +€ 161080 
BISKCODE .NDI42 1), SPCODE ADH SDP + 161089 
AICO CNTESWEDICEOLCNTETIID IC TL CNTC2212, COKMIR OCOD WEIG1090 
B.S CHSEDD OCIS FORD CSMOCP ETD Oye S2), CSO IND DENSON) s€1G1091 
C.ASPBLDD TEN2329)  CSPNEDD TEL2EoNe s€ IG1092 
D,CAPRISOUTD.PELO7OrP HE 1G100% 
¢ te tG1099 
¢ 6£ 161090 
INTEGER SPCOOE ,SKCO2E 
INTEGER SFCOOE .SRCOOE 
REM NSPAR MEIGINIO 
€ MEIOLI20 
OO 30 I+t.30 
wih = 0.8 
30 CONTINUE 
¢ 
¢ S0CSETUP CONSTANTS FOR WIDTH ANT NO OF SPARSere 
c eOSPBCI2-22) © CELL SIZE FOR FDMee 
c e°SPHC 12-22) © CORE DENSITY FOR FOHee 
WIL?) © NSPAR - Di2) 
W110) = MECELNSTATD ¢ Cw 
rela’ THICKNESSES*e* 
0O Mer 191.5 
We 193-2 
MEER © CEL ADD © 2. OCEL CKoens © CLito2rreCMPigneOi2y 
381 CONTINUE 
€ 
c POT ILLER THICKNESS AT SPARS © 2°L-PLY THICKNESS #® 
¢ FASTENER LCNMOTH © TISKIN) © TIFILLER) © TIRIB HEB) © 
c © TCPALIU.L? ¢ LEFF IMEAD GRIP ME TAINERS 190.625 IN.1¢ 
€ TILLER © 6.0 FOR FON AD HCPL, ATT © 0.0 FOR POH? 
¢ CINITIAL SETUP FOR M/SPAR-PLAIECS® 
WIS) © CPM? 
ME2LE © &. OEMS ELL) 
Wt22 © % OCP IS EL ESD 
E27) © WENT © MC2IN72.0 © WIESE © TCPMLU © 6.625 
MI2B) © WIZ) © Mr 22172.0 ¢ HHIS) © TCPNLEL ¢ 6.625 
¢ 
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O6/iNe hm PSvT LISTING AUTOVL On CHAT SET CREF WIND AOD Chien. 
CARO NO sere COWL NTS eoue 


*e9CAS FOR £15 AO RIS #* 
OFOR HOON, C9 Kes CIO AVE INSEHT ARC AGe* 
C9 MO CIO = 0.0 FC PLATES® 
*C7, C9, CIO © 0.0 FOR Fine 
390 09 393 91,2 
Wi2O) © WETD*SLEFSI4) 
IF (ht20) - SLEFSE3P) 391,392,352 
391 wrRO) © SLEFSE3) 
BOS WELOLOs @ WEZOICAKMITE © WESPOSET CPC EN DI2? 
WELON2d © HIZONSOCPIDD © WISDOSGIPIes Die) 
393) CONTIN 
MEhdy e wenhd 6 CO 


nanan 


writes © wEH2) © CIO 
WEES) © WEES) ¢ CD 
WEie) © WEtH? © CIO 


0081 -SPAR CAPS © FICT,ISKU,INOCRIS 25 FTG ere 

*FOR FOH WIL /SP4R CAPS © DYDD IS ICTS 
“SET TIFILLER? SD LIATIN © 0.0% 

IF 3) ~ SPCODE) 3930, 3910. 3978 

3930 WET) = SPOINSTATOIED 

MOIS) © MICE NSTAT) COCR S/ErP 0? 

mi2t) + 0.0 

wtz2) © 0.0 

wi27) = 0.0 

Mt20) © 0.0 

GO 10 3939 


aoanoaon 


¢ 
331 WEIS) © Hh LDDOIDIZ,eHEISD © C9 © CIOD 


**COMMERT 10 KEICTe* 
3939 00 39% 191.5 
End © WOLD Ere 8) 
METI) © METe1ODErP 18) 
TN CONTINUE 


eercovenseee 
FOR HOH, SPCODKE*3 AD SKCOK ele 
WELD © MCR i omtIGE 
mt2) © WIZ. eHIIBD 
MIG) © PFFSC VEC I6) 
Wt?) © PFFSCVHIIe) 


anne 


c 
c eeTEST FOR HC/PIL COMLRD AD FOMee 
IF «(NDLI) ~ SPCCOE? 400.400.4000 
c 
¢ eoFLL DEPTH HORE YCOGe+e 
c SPAR T= CORE VEIGHT® 
¢ MENTICCELL SIZE AD INITIAL VALUE OF HUEY: -0.0 * 
900 WIS) © MICE STATI OHS *SPMINSTATeOD) 
wig) © 0.0 
ut16) = 0.0 
00 10 403 
c 
¢ eOTEST FOR HE/PLL 2 PLATES. SxCOOC*2 FOR ME VFILe® 


%000 IF (NDI2) ~ SKCODE) 4001 4091.40) 


*OHONCYCOME PAEL COVERS*® 
c *CORRECT LIATT) TO LICALC) - TIFILLER, SET TIFILLERD©0.0 
S001 WIG) © WIIGDSCTCPHLUCENCEL) © OCPD) © IG) 
WET) © MENODOCTCPALSCICOL) © OCHO) © HET) 
Mt27) © wI27) - MEE) 
Mt28) © WI2B) - WI22) 


m2ir © 6.0 

mt22) © 0.0 
c 
c **SPARS--CORRU OR H/PHL Oo? 
c *INTERM. SPARS® 


801 MID) © PFFSSP+HS*CFRIBMEL TD 
WESD © MEG) HIS CFRIBOHELID 
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Costes hy (Put LISTING MITOFLOM CHART SET - Sot EP M1 ND CMPEMALE WORE - 


CARD NO o.0.0:9, CONTENTS wees. 
31a IF UNOI2) - SPCODE) 8651.8 52.6520 
U2 02 WIS) © WSCCTCPML Ctl) © (Ler 2) e WISH ZCFRIB 
3126 WES © MINIZCFRIB 
y127 NOLO WIIG) © COOMIR - OUI bFedMiND © WEST) 
wee c 
3123 c **FILACR AND ATT .TSee 
3130 4021 00 8022 91,2 
PTET) Wibee2d © WIbe2Oe CEM IO 1 utd) 
ye MELe2e) = O.COM TIE THe uE eB) 
3133 "O22 CONTIN 
us c 
3135 
31% ¢ TRONT SPAR® 
3137 403 WIR) © PFFSSP ere Sich iy) 
3136 WIS) © WIS OF CSNDCE Cty 
3139 IF CNDI2) - SFCODE) 404.46 9.855 
3180 SOW WEB) © MOU ICPMLF ERT) © Cl id) ¢ WIBI/SHBCF OND 
3st WES) © BEST /SHBCE OLD 
3ise 
Bhd c *REAR SPARS 
Bas OS WLIO’ © PIFSSPeHReSHECFI2) 
3148S WIS) © WIS) HR SLBCEI2) 
31N6 TF GNDI2t - SRCOOE) 406,405,407 
3th? %06 NEIO) = MRELTICPRR ROE MCI) © DBRHO) © WITON/SHECE ta) 
3.48 WIS) © WIS) /SHBCF 2) 
aus ¢c 
3150 c SeeutMISC) FOR §-SPAR, F/S AND R/SSe* 
3151 407 HT16) = WEIG) © ESHKMSEED - DEPDDCIMIS) © WEDD © METSDD © SHOE 
nse lad - DELbrecMesy © WEDS) © eae 
3153 
UH ¢ eeegunece 
Us id 
3156 WED © WIIG) © WE2TD © WI2H? © 25) © WEB) 
3157 00 408 L-1,15 
3159 MEL © MEL eo WED 
359 §O8 CONTINUE 
3160 
3161 
3162 c SOPRINT SECTLOM DATA ON APRTIDINST/T) = 1008 
3163 490 IF (APRIIDINSTATD) 499,499.49" 
3164 SR BRITE (6,495 INSTAT .NSPAR LET 
3165 c 
3166 SDS FORMAT (20HO ***WEIGH] SUBR -- STA,I3.8H SPARS P71. MT/INe, 
3167 UFO. .uHoe* EHO MD 
3168 496 FORMAT (3K, 16.20, SF 12-8) 
3169 497 FORMAT (12H0 EL01-15)9. F6.1.2K, 682K, S.9.2K. Sek SI 
3170 ¢c 
uu70 00 “OR Net 30.5 
3172 “eAeh 
u173 WRITE (6, 4O6IN, CHET) SeN.K OD 
tha) 198) CONTINUE 
1s WAITE (6 SO7NSEL CUD Sas ts 
Nw 
nv 
1% 
Nn 
3180 


¢ 
sree ¢€ ces eSUBROUTINE ACHE Teseee 
3163 c SeeM/RIB TORQUE-BOX SYNTHESIS - ADV. COMP, ANALYSIS*¢* 
hw c 
3163 Covsoversscvccssvesuseuveseesvetvccursusessssresseuesseees 
168 ¢ 
ue7 SUBRLITINE ACHRES aCSTO010 
si88 ¢ 
109 ¢ eeeaDV. COMP. BOX SYNTHESIS--STR/RIB CONSTSee aL 510020 
3190 ¢ 
381 ¢ @eeCOVER CONSTRUCTION ID--KSTRU AND XSTRi see 
u192 c SOWORKIND EO=SKCOOE--t«1, @=2, Jet, WeHATS 
i193 c 
Hm ¢ AL$T0030 
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OB INe me tePut Castine MUTOFL Ge CHART SET - SHELF WIG AO UMASS BOOED - 


CARD 10 eats COrTEHTS S28": 
BIS 0) Cores. 119168? ALSTOONO 
3196 iq a$10050 
3197 OPES 104 OF26551 .CO120009 P1100). THI 900) CH 20408, ACSTO050 
3198 ACHP iS) CheGd CTE Gh I, aC$10061 
3199 2095.29) CNAGT EO) CLES) WSEB) EFA T) CL WEL!) EL Os, ACSTOCES 
3200 WPI2SH ME IGHET DD SPCRUNITG) FCROIOLEED VEC EIS. TED, aCSTOOES 
wo SOW StL) OVPSEE IS OVESRSCS1) SLCFSISD, ac Stoces 
woe GIEFSTIDD TORS CNL D VSTChaa, ACSTODES 
3203 PSPBCST) SPNC IS! OCBSTUL TD OCNOSIII) WE ICPIIOD, MCSTO067 
3200 BTHICK EG) SHLLOL 33) SPLLOC SS) SUUOUTSE STLLOISS?, ACSTOOE® 
3205 M2 VESL TE 20), SIRESSIG 11,20). CARLO 7 ETE STRINGS, 10.00F aL $10069 
3206 AYRIUCUIE VOLECRID a€$10070 
3207 @.DOF 214! DOP3Ie) acst0o71 
se0e C.APATIDN2) ACrE 0072 
ry woe DO SHEK P12) OMIT) OMOD ET? AC$10072 
% w10 © TKC160),TxSc1ec? ACSTOO™ 
wi c acst0o7g 
wi2 COUIVALENCE COONS TH2061d1 CCOsdd Teesaatd INDIDE TeGrets, a€$40080 
f ys DOTMCED VEB22U 9D ACTUND, FA TLSEH) THICKET TEISIGDT, sCSTO0BI 
Jan QiCNPCDD 0121552)  TEMMELD OCR ICYD, a S10082 
wis SHEMQCD, UT THCEOTD, CENKED DP THE 70ND CENCHS? .CTIZOWSOD, acsto0es 
we SCELEDD TEU3OODd CWS CLD PULSES DL ICNTC EE, FCUSeaaD, ACSTOORY 
t 3217 SISTRINGCL 1,03, FA16 760), (HEIGHELD TEIGESED CSPCRUMC ID. TCIG63200, = ACSTOOGS 
i 18 GtCPLC 1) EP. TISEODD COTE) TUNE ISHE CTELAS OP, PHU, ACSTOCS6 
4 3219 TEVEL TTP CUCUSZODD AMEE ED CTCSOOEDD CSTRESSELLUL IS .CTCEOD, aC$10087 
q 3220 QIFCRUL LD TERTDOID ACLWELD TC 1632, aCS10088 
3221 DUILCASE WOULD D CELE) 1423230) CHE IGP OEE TO1GSSI) 4C$10089 
F lee A, USPCODE .ND(43 93, 1S) CODE JNDINS 22, (SRCODE JNDING? 1 ISKCOOE .NDIN2)) = ACSTOISI 
3223 BAT YPC NDS, CXXCOOE CNT E199), CXPCODE CNT I 2091, (xT CODE CNTI27)) ACSTOOST 
326 C, UXRCOOR, CNT 281) ENSTR CNT (219) AXSTRU,CNTO 19) OXSTAL CNTI203 ALSTOOS2 
3225 DO, (XTYPE .CNT(1O) }, (BRMIN CNT 31) ACS10093 
3226 €,, (BROCAX CNT (G93, CBSMIN,CNT IS) P CSSMAX,CNT {6}, (BMMAX CNT O TID STOO 
3227 FACE CNTELUDD ICS CHTUL2) DE CCOLCNTULSE DLC CNTCINED aCS10095 
wee GENS TION CNTOE DED UNSTROMX CNTIIGD) CHS CNTION01 aCS10096 
3223 WCF CNT(250), CMR CNTOO6DD aCST0087 
330 1 CTCPRLA CNTCSEDD CTCPALE CNT C320), CTCPRLA CNT E339) aCS10098 
3231 c aS10099 
3232 EQUIVALENCE (SPBCLD. 1612320). (SPNI1),TE12659), aCSA0100 
3233 TADCRST C1) 0076500, (OCNDS(1) 0177600, ACSTOIOL 
RH SUTOF SEED, TEISTID A TBRSCLD TEIGSHD CYSTOR DL TEStid, ACSTOIOE 
ws DOW SUL) 0104292, COVRS( 1) OCGS39}, (OMSASI ED COC IG2NI2, AS10103 
Rs SESLOFSE1) O1IN7099, CACSSID O14 3800, ACSTOION 
3237 SCYBUICL) Ti6 790) EVEL ESTE, F169900, ACSTOLOS 
wy NDOPZ]61) 0113671. (DOPE) OCS STIOD, aCST0107 
3239 BLACOLNI .00P213)) , SACDLN2 DOP2I4)), acstores 
300 SUACOL BI .OOP313))  CACOLC? OP SWI) aCS10109 
wa ACTHODY COLLIN, CPKSCbD COL IGE DD (BS, TKC3OF 9, CHIE TKESTDD ACST0110 
3x2 B.CBALVOIL) COL2GE ID CSRLLOCED COCARHID ESTLIIOGH) CDi 32799 acsToili 
m3 CASTLLOUI? COC 36033, (SLUMIN.CNTIBIP, (SLLMIN,CNT? acstou2 
mae OL USTUMIN.CNTCIS DD .CSTLAIN CNT OIG: 8. Txe 300d ACSTOUNS 
325 E CSHECP ELD DIS2329, (DNL G) D193199 (ONT EE) OC GHZ) ACSTOVIS 
we 6 EAPREIDULD TAS 07090, CHAK NDC DID) INSTAT NOCSS0) CISL. .NDIG2I) «| ACSTONIS. 
me? aCsTor2o 
wee 
be] 7 
3250 INTEGER SPCODE . SKCOOE , TYPE 
32s: INTEGER SFCODE “SRC ODE 
we INTEGER FL AO 
3233 ¢ 
ww OLA SIR 
ws REAL STROSS TROL JEL 
¢ 
37 SPCOOE © EPCOOE 
TYPE © XTYPE 
CODE © COE 
Wese SACODE © WRCOOE 
Bet c 
waz ¢ 
3263 i4 2eeSCTUP SELACH DATA--TEST 10 FOR TYPE OF OESIGNES* 
we € SIDPOINSBIMALSSID. OeSEARCH, Te INPUT B. 22INPUT NOS? 
3285 ¢€ oUF SEARCH, USL TYPT AS CONTROL 10--1°CONST NOS, 208 


2599 


C61 Dh 


CAED 20) 


wee 
BO? 


3330 
m3 
3332 
3333 
Th 
3155 
33% 


WPT LIST ine BLT fey (eT SET + SAMEP 
eeee Ce ERTS 
¢ 
€ 


nana 


€ 


300 


soot 


3003 


301 


w3 


30N 


ro 
Boz 


DO 300 lel .ee 
SPB} 2 O00 
SPniin © 00 
CORTIME 


PePCLEAR Tx AND Tas at aygeee 
BO 3001 191.169 
txtih se 00 
CONTI 
BO 3002 1e1,100 
TxStdh 2 OO 
CONT IE 


POOINETIALTZE LIS ENG SIRI OC? 
OO 30OS Lel,tt 
SALUOITI © SCUMIN 
SFLLOCID © SULAIN 
STLUOLI? = STUMIN 
STLLOVID © STLAIN 
CONTINUE 


FLaG- Oo 
4 CACSSID - Dittt 305,301,303 


otMeuT Be 
00 302 lel.th 
SPBII) ~ OCBSTULY 
SPNIDD © WIL, ED/SPBCID - 1.0 
Cont ae 
@ 10 350 


INPUT NOS© 
OO 304 Imd,tt 
SPN TD © OCNOS(ED 
SPOID) = Wee LE7eSPHet) © 8.08 
CONTINUE 
GO To 350 


SEARCH--TCS1 TYPE OF ORIONTATION--CORST @ OR NOS* 
FLaGes 
IF CTYPE - 2) 308.306, 306 


CONST B -- SEARCH GMIN TO BMAX--10 ROUND ON NOS? 
OO 307 tet .tt 
SPBII) © SSMIN 
SPNIT) © WOE ED7SPBETD - 1.0 
CONTINUE 
@ To 350 


CONST NOS---SE ARCH FROM NOSMAX 10 NISMIN® 
1 UNSTRMN - MST) 309.329.3100 
ts 2 0.0 
OO 311 Joa 
SPNITE © NSTI 
SPBID) © WEL EP 7INSTREK ¢ $.07 
CONTINUE 
6 fo 50 


SeOINITIMLIZE DaTacce 
me 0.0 
OO 3*00 fe1,12 
Cities © 6.0 
CONTIN 


SeOPRINT CONSTANTS ON APREIDIt2t = yree 


aF CaPRTIOF 1209 3503, 3803, Foe 
WRITE 16.1059 
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WING AD TRPLISIACE MOE + 


eoee 


PERSE Rene rants ewer Rem ET rEMNR EER HED neon ern OE ORR ITE foyer erie teem Benenson aan cao: ee ismsen-a'otaaer beasiaptip a aveanairenn AemceonarvemPed 
Ob IN sh PEVE LISTIta. AUTOR LOW CHART SET. SAP WIM MOLL AT LUE - 
CARD NO aces CORTENTS acd 
3337 O00 109 mel. 3e.s 
3336 Jemes 
3339 PRITE 16 LOGI, CONTIBO BR eK DD 
33n0 109 CONT INE 
gm c 
332 WRITE 16. 1020(ENP ORD KOLO) 
U3 ig 
aye BRET (6.1031 
335 BO 107 nol. 100.5 
5366 yours 
33n7 ETE 66106 a THUR OCOM) eben ltd 
36 107 CONTINGE 
3369 c 
3390 WRITE 66,1001 
3351 00 108 aet,60.5 
3352 JoeKe® 
353 DRITE €6, bOGIK CTHtkm e200) me LED 
3358 108 CONTINUE 
3355 c 
3356 W03 wax = 00 
3397 c 
3350 
3359 OOS ARCH LOOP ese 
3360 3 Cuts = O60 
3361 c 
3362 ¢ COH/RIB ALALYSIS--TIP TO ROOTese 
3363 cece 
Ben 00 3S ISkCot.t) 
1355 c 
36 WSTAT © 12 - ISEC 
3367 c 
38 DO 8 191.6 
339 CRLCELNSTAT? © 00 
3370 MELCGp eo 10 
3370 CONT EP. 
3372 CALCITNSTATI © 00 
3373 WIOkemts ,MOTATE 
35 ¢ 
3375 € PSHESTIMATED CIFECTIVE OEP IHS © FIYBAR COVERICC? 
33% c CHEB DEPTHS ASSUMED TO EC D-2°1DEL TA YOARI Ce? 
3377 c MIN EFF DEPTH © 1.6 IN. 
3378 51 OCLCOV © YBULINSTAT) © YOLEINSTATI 
ny M1 © Wi2,N5TAT) - OCLCOV 
3380 Wo ocmt ~ O60) S500. 3512, 3512 
3361 Wil Wie OV 
3362 B32 WS © WI2.NSTATE - 2 O*OEL COV 
3383 IF (HS - O¢dde ISIS, 3518, 351% 
334 S513 WS © Det 
3385 T5te Ww» TOFSINGTAT? - 2 O*DEL COV 
3386 1F OW - OLN) 3515, 3516. 3816 
3367 SSIS We OLD 
i3a8 F5IG HR © TARSINGIATH - 2 OFDELCOV 
3389 AF (MR - OCbID 3547, 3519,3519 
3390 3517 Ws OWI 
3391 
3392 ¢ @CCSETUP CONSTANTS CE .C2.C4) E-Lbere 
3393 3519 8 ¢ SPBINGIArD 
VIS NSTR © SPNIPGTATD 
3395 Cl © OWSINSTAT DOD SRSINS TAT) Dt 190 
3398 C2 © OVASINGTATIC(OC I) - DVESRSINSTATIN/OIIS) 
3397 Ce = GLCFSISIFISLCFSI1P © SLEFSI27) © SBCPLLD © SCP I2) 
3380 ¢ 
3399 OO 15 LCASE #1. LCase 
woo WSUS Deve? STAT LOASL 1711 ot MIOE ¢C4) ) SONCUINSTAT > 
Wot WSt21=-WS 01) ONO STAT) /DNKUINS TAT 
woe WSIS ovis MSTAT LCASED/t2. “WIDE OHI? 
os ¢ 
Pal al WS(OF © VEE NSTAT UCASE I/2 0 
08 WSIS) © ABSICHUSIOIAE © w5I3DS 
woe M5151 2 6.6 
eo? WS1G) © ABSICZ MSHI HR - WEST) 
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els 


CARO WO 


woe 
09 
wre 
wit 
Nie 
N13 
wis 
KIS 
Ht6 
wi7 
Ww” 

yas 
HO 
Wer 
ree 
Wes 


Wer 


30 
wt 


Wd 


eevd UIST MUITOOL Ce CAAT CLT - SHEP 
once CONTENTS 
¢ 


356 00 8 91.6 
STRESSED NSTAT UCASE beet 
@ CONTI 


ae Sh PL 
B  CATLD 8 MSUDD ENNIS LEASED © CS 
@ 10 11 
$0 ELELD © Sth eee n Canes © C3 
1 TF twSt2rd2 tT 
02 ER tSy = WEEP HEMKTe LCA © C8 
vo 10 13 
is CLG2s o CAVE LCak 6 CT 
U3 CONTIVA 


00 60 193.6 
CLUN) © ABSIWSULIENAES UCASE De C3 


60 CONTINUE 


00 157 691.6 
AF CALCUL NSTATID 150,190,151 

(50 CRLCUI,NSTATD © LC ASE 

US) WF CEL CED LE MELODY GO 10 199 
MEP beCeegs 
CALCUL STAT POL CASE 

159 CONTINUE 

¢ 

19 CONTINUE 


DO 600 1*1,6 
MECC) © INTEXEL CTD) 

600 CONTINUE 

¢ 
CucdexEn any 
ELt2pexEe 13) 
KLUDomnet 2) 
Cucwrenr: cat 
CLISdeCL 12 
CL IB OOTY 5) 
CL BrexeL ie 
(Co Ca 
CLC Ne sexte 16) 


CeOPRINT SECTION CNSTANTS UN APRTIDII2) © Lees 
1000 IF CAPRTEOCI2+) 1008, 1009, 1001 
1002 WRITE 66,1000 dHStK) Kod OP 
$00 FORMAT (PHO (W5° 4EIS 8, / 7K E16. OP 
101 FORMAT (1700 XEL© 6016. 
102 FORMAT (70 ENP*,SCI6. 


Aare Se 


(03 FORMAT 1640 CHO! 


10s FORMAT (GHO Cho 


10S FORMAT (6H0 CNT! 


006 FORMAT (1H . 30.13.5616. 0) 


WRITE CG, POU NAME LK) ead I 


(009 CONTINUE 
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Pee eS YNTHES ITE UPRALLE STA COMMAS AD RIBSOore 
S00 CALL ACHSIR 


€ Oo °SAVE SKIN AO STA L-PLY DATASS® 


SAUOINSFaty © Cust) 
SRLLOINSTATD © ELi4? 
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EEE EPRI MSE aR Reta WLS a PREM Renee Seine ie Menon oe tre — ~ 7 aL eee — Emenee tn we renee amnutemnnannsrnt 


O8INT HR MPT LEST ts AUTOFL OW CHT SET - SELF WIG ND COPEL MOLE - 
CaRO WO eeee CONTENTS ba 
A STRUCT AT) © SIRINGIE IC Stats 
wee SMLOUSTATL © CTR tere ICT IATD 
Net c 
ne ¢ 
nS} ¢€ SOT ONT SPAR CEST Sere 
nw c COREUG ATION CR HEU? ¢ 
nS 601 Fate 1 at 
Ne WF AFCO £0 2t FACTO? € 
yay 
wee ¢< SOOSETUP ALOMAGLE STABILITY LO/SS al CRITICA PLA CO“Deee 
Noo GtO LCASE © CRCHS TATE 
W9D CALL CKSTAS OR HE CLOT) E016) EL 0G) PIL CASE) STRE SSE’ GTAT LC ASE? 
Wot LP ACT ECRE PCRS UCASE TCR APD 
92 FCRUS.NSTAT DOF CRS 
Was FCRIG.NSTAT CFR CRS 
We 
HS c @OCHECK ALL LOANS FOR STABILITY** 
Bab) OO GIS ALCATEL CAE 
97 tet 
wd Gib CAL CKSTAD CLAP EL E71 EL 8) EL 9) PEL CASE STRESSIM NSTAT UCASE 
Bate) DF ACT FCRE ECRS UCASE LTCPra rd 
ys00 SF 0d.0 - RD Et2,613,.613 
HOt et2 te?2 
Foe ELc@r © TL18e ¢ Oo 
3503 CLC) © 7,81 
Bela) GO 10 GI 
re Cc 
06 6:3 0F 62 - Th 6t4 614.615 
3507 Gis PCRS MSTAT OT ORS 
508 FCRIGNSTATIONCRS 
09 CPLCIN NSTAT DO 2O0SL CASE 
wHI0 61S CONTINA 
wu ¢ 
Biz ¢€ 
ws c 
PTh) c CORE AR SPAR OLSIGriee® 
wis ¢ SCORFUGATION OR HE /PHL* 
KG 639 Facile te 
Bir IF 6SRCODE.£O.2) FACTH2. 5 
wie 
Bis c COOSETUP ALLOWABLE STABILITY LOAUS AT CRITICAL P/A CORD? 
wro UCASE = CALCIB.ISIATI 
wet CALL CKSTAR IR ORCL ENS) CL ONT EL OLS) PILCASE) STRESSIONSTAT ACA 
Wee OSE) FACT LECRC PCRS ACAST TCR) 
Fe3 FCRIDWETAT HOF CRE 
BE FCRL10 ASTATIOFCRS 
ne 
et c eCHECK ALL LOADS FOR STABILETYS® 
we? OO 635 LCASE=1, TLCASE 
we tes 
wee GIL CALL COSTAR (MR LEL CLS) EL 68) EL 01S) PUL CASE) STRESSIG .NSTAT LUCA 
Bede) USO) FACT CRO LF CRS UCASE TCP ERD 
BN tf ¢1 0 - Ri 612.633.633 
Pbed 6 lee 
B33 Eueiee oe Ceint 6 10 
BY CLAS) © NIT. Ie? 
ny @O 10 63: 
mw c 
ms G33 bF (2 - 1) 6h 6h. 
Bw OP FCRIONGTATIO£ CRC 
ms FCRUIG NST AT IOP CRS 
Fro CALC IG STATI C23¢L CASE 
rat 63S CONTIME 
re 
Pas 
Baa! € eoeC AR” TSIM AND MT PE ore 
Pas CPO CALL MEIC Ch IGHINSTATD NS TAT) 
we Wott - ISEC? 691.692.6902 
war OBL ML IGPINSTATD © fe SGHINGTAT CI) © ME IGHINSTATIIOOVSTONSTATOS) - ¥ST 
rae DENS TAton 2.0 
rae ELbedd © CLWCED © 8 IGPINSTAT? 
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Che ad 


ro 
3951 
m2 
mrS3 
ms 
mH. 
nse 
F5? 


367 


m7 


*~77 


ELT CPSs BITE LC CHART SET - SREP 
ieee COTES 
c 
c oeeSad PLY Dalaces 
€32 OC O43 Jed 15 
BELCD WTA OeEL ad 

93) COMINE 
c 
€ 86 OOP FOR NET STALICeeese 

$3 COT IE 


anaan 


OCePRINT KEIGAT STAY DATA GN AFHTIOII2I © eee 


6792 1F CAPRINOLI20) €979,6993.6791 
O990 WRITE CGV 7ICh eee 


17 


CCT CID CAC BE GT ef 0.8) 


beste, AS ON betes 


TR ae en SCI Oe ie Cd ee ee ee 


OFtec dd bok. ane 


FOPMAT CILHO WM LCD FL7ICHD OWE INe 1169 3,/10H0 eur 


1c 3, 71043 sas- 1179 3b 


eertLS! 1D --O+tO Stes 


6999 2F 6FLAG! 702,.650.709 


ms 


16 


eoTEST 68 FOR LOOP 1 OR 2. O-LOOP Ie* 
UF 41) 701.701. 70 
WF CCL we2ae 710,710,702 


OTEST WTCTD WITH WIC- Ede 
UF CELbOdDd - LADD 710,703,703 


eeCALC INTERM PT. USE DELIA E> OR EELTA R™2Se 
“SET NB TO 1 WO MOVE f1-1) DATA 10 I-21, 
° tl) Data 10 th-te 

Med 

OO 70% Iet.at 

SPOUTe22) © HBC Dene? 

Pw de220 © Srmctetiy 

SPOcietie © sSeBIEE 

SPuctettt © spats 

MAWite22) © SAUOItedd) 

MaLOther.1 © SALOriesty 

STLUOINe228 © STLUOITetIt 

STLOLIe22) © STLLOMIetI! 

BPA teity © SxLuTIte 

PALOleiss © H1ULO8ITD 

STLUCIIobEy = STLUOIED 

STILLOthotss © STLLOGHD 

CONT Itt 

Cimi3) © Cwi2s 

CLMi2) © CuMesD 


eertvPE © SIR. 10--- FeCl ST NOS. 2eCONST © SLARCHOS? 
WF ATYPL - 2) 707,705,705 


CONG Pe 
CO 706 fet.it 
PRT) © PBs) - ACH B2 
Peds = wi terse) - 88 


CONTINUE 
oo 103 

CONST MOSS 
00 7s fet.tt 


SPmili © smuedl © ACL? 
SPRUE) © ea Ed erseety © 4.88 
CONT IME 

6 10 3 


eeoPTEls © FIRST POINT OR WTIEE LESS THAN WTE-Tbeee 
WF ctwPe - 2) 720.705.7111 


*°CONST B SCAACH---TEST IF PTI) 8S AT Bares 
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© meee 


eee eenmneI Er op aR er 


Sa-tepeeramterenans seas 


Obs INT 


CAamD NO 


21 


Ba 


z 
aa 


SEPP ERR PEREE 


INPUT LEST IG AUTOR LOW CHART SET - SHEP WING AO LEIA MOOT - 


annnna 


mI 
ne 


ms 


ns 


18 


m7 


vei 


vee 


7e3 


CONT! I~ 


IF tB - @SMADD 712.000.8600 
Ciwred = Bowes 

OO FS tel.tt 

SPOcleils © SPRUE) 
SPNCEONTD © SPHERE? 

SALUOL e112 © SxLUOCI? 
SRLLOUS ONT) © SxLLOFI? 
STLUOLTsth? © STLUOITS 
SMLOMoLeP © STHLOWI) 
CONTINUE 


1F (BD > @SMAK ¢ AME2! 714,717,800 


TEST @11) © DELTA Bt WITH BHAKe 
*1F LESS THAN BMIN, USE THIS POINT* 

(6 1B - BSMAC © AMOI 715,715, 77 

e-8+ ane 

00 716 Ilei,tt 

5 | 

SPNGL) © WEED /SPBLdE - 1.0 

CONTIN 

eo 103 


OK Deb=BDELTA B2. SET MBO1, WEIS e1eHTCabe 
mel 
CuMc3) © 2.0°EL Ha) 
O-B- KNB! + MABE 
We «BSrax - @) 600.715.7155 


@eCONST NOS SEARCH---TESI IF PTC) 1S AT NOSMING?? 
IF (NSTRMN - NSTR? 721,600,800 
Cumi2) = CLwea 
OO 722 te1,tt 
Sertoli) = sPBILD 
SPmiteit) © SHULD 
SQLUOITelt> © SKLUOTL) 
SHALOM ehhd © SKALOWTD 
STLUDIPesa © STLUOILD 
SMLOCIeLL) © STLLOII) 
CONTINUE 


STR © NSTR ~ ACOLNI 

1F (NST - NSTAL 723,723,725 
OO Jew Ie1.08 

SPNII) © NSTR 

POLL) © WELLER CCNSTR © 1.0 
CONTINUE 

eo) 


SOMEXT Pi © PTLD) - DELTA NOSI2I¢e8 
SET MD ol, WTIStoeewTi2iIe# 
wel 
Euwts) = 20°C Wied 
MSTR © NSTA © ACORN - ACOA 
TF UNSTREN - NSTR) 723,723,800 


S°*L OOP 2---TEST FOR HIN PT FROM ETD, Wid-90, Weh-2reee 
LOOP FOR FINA PASS IF MIN IS WEI-1) OR WCE-BDe 
ET FLAG 10 Oe 
FOR COUA UTSE UST PT WITH LARGER B° 
10° 0.6 
OF CEL wtd) - Cuee2et 751, 7A, A 
WW CELE) - Elect? 752 ,600.800 


CONSE PTC). SET O.MOS(1) © B.NOSII-2be° 
OO FI lei.tt 
WPOels © Bi lez2 
SPT) © Wr ez21 
SAV) © HAUOI!e22) 
SALOU! © SLLOlfe22) 
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O67INI ul LISTING MUTOFL On CHART SET - SHEEP WINS AO CPCI L MUAL - 
CARD NO seee CONTENTS, eee 
ug92 STUOCI) © STLWrlezer 
9) STLLOMT) © STLLOCI e221 
BS a) TS} CONTIN 
4m @103 
oss 
360? € SOPTCLD AND PTIL-Lhee 
we PA IF UeLMi2d - CLacte? 7%5.000.000 
Bm TS OO Mb fes.tl 
3700 SPOCh) © SPBIfonts 
3701 SPNILD © SPNUDOTED 
3702 MAUI) © SL UOIIettt 
3703 MALO © SLOIoII 
370 STLUOCHD = STUDI Ott) 
3705 STILLOCED © STLLOCIolI) 
3706 736 CONTIIAE 
3707 00 103 
3708 ¢ 
3709 c 
3110 c ene STIFFM a. DATATCE 
am ¢ CALL SUBR ASTIFF< 
ar712 O00 CAL ASTIFF 
313 ¢ 
374 
3718 
3716 
any eeeccare seece 
3718 c 
379 ¢ ee CeSUBROUTINE ACWLTIRecsee 
3720 CS #*SKIN-STR/RIB SECTION OPTIMIZATION - ADV COMP. ANALYSIS?*? 
vr c 
sre Covsescesceacevccsessevgeseussascenaseeceroccurcugesssese 
373 ¢ 
ne PBROUTINE ACHSTR ACwS0010 
375 ¢c 
3728 € eoooRR FOR COVER AND ROB SIZING--M/RIB CESIGNES ee 
37 c 
728 c 
378 COPPION 1620601 11 7060) .CD1 20001 NDI 1001, THI900? .CT(2048) 
a7 c 
371 OSES ION ELE1S) CMP 1) ENO(S,20) ,ENK1 3,20) ENMIG) ENC IB) OC 61009, 
37 ISTALSS¢E6, 01.209 CALCIT, $5) P1200 SPORTED FCREIO BO), 
3733 RSTRINGIZ 10,00) THICKOMD CHT IGII JEL CIS, 90), 
3 3VK0160) , 1xS1 1002, 
3738 SION SOOM CL TD STOLE STOOL CHE, 
178 WMO I LD FSTUCHLD FSD STE CIID, 
3737 CESK ISO) SIF MS) STF ISD, 
37% ‘FA. UO SF) SALOU SE) STLUOI ET) SLOSS), 
37” OPSK 1201 .PSTRI20), 
Pra) BAPRTIOLI2! 
3m ACRICIE) CLIT) 
sre ¢ 
3nd COUIVALENCE (CLOG) FEL 30OID CEM CE) DEL ISSID CEMOCT 0) PeeeGOuDD, 
Pa! OE ORTT 91 Teee PONTE  CSTMESS EDEL SP CTCL CCMCED LOD, F9GOND, 
nS RPC) FA18ss SPCRUMELD TUG IZ) CF CRID 12 TELLOOD), 
ss SUSTRINGCL DTU TIGA) CTI TT THL@IG 7d CONTELD VeISetD?, 
badd RATED) COULEECTNSEL) COCHGSID, 
3mNe SES TAY CHTCEDD, CNSTAL CNTI20), (SAMIN.CNT (3D), CORMAX.CNHTINDD, 
rN WADE CUTE TE COMPU CHT (400) (OF MAX CNT (N10) (OFRIN,CNTIN2 ID, 
3756 PESTA COT IZLND CCS CMTAISI DCO CHTI2II, 
Prey OISPCODE .MDCGS1D, CILCASL MOUSE), CTYPE oO teend, 
wre Ot APRT1OC 11 1610701), (NSTAT .MOI95IF, (RUAX NDC BE DD 
3353 AL COSTED OF ING1 dd CS THOT) OC i PeOrt CST cad OCT ISSID 
I= B, CBA OEE COL2G EDD CSL LONE? .COL2RerD 
375 ©, ASTLUDCLD .COCEZ72D , (ST_LOCTD .COCSSOI) CCF IX .Ot4O72) 
3738 € 
7 CQOVEVALEME CECT) OC LTD), FENCED CTC2OeRID CIEL Tae tree, 
376 OUD CT ER) ETON CNTASI DD, 
a™ RICFRID 06002) , (OBO .DtvOel | (PFFSCV.CT IRON) IPFFESP LC TI20N8I), 
me CMO hs Td GSE cS TeCT EG) TEL 77ND, 
3781 ie EC De eo Me 
32 BUS room. 69d Teec22a db, AFSL 1d Meee2ISe0 CF STL eas, Fer aeso, 
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OBEN eT CEST Ire As. €LOW CHART SET - SHEEP wit AD EPP CCE MAA - 
CAPO TD eee: CONTEA'S hon 
33 FURSTUFFL .CNTINBED, 
376s GISTIEE POC SVI ELC ILS Pee eed tS EIST IMR NOISE, 
U5 BULSK IM Ors ACCA POcegre 
3% AAPOREDDLURUDODUD CPSTRE GD PROEST IE CASAL PAIGE ALSTROR PE STD 
37 BLAIS IXIFK HY CB ITAL TAI Tel) 
3% CC ABRAUET DE THI 2Seb TLORL ETD, tHiee SD 
39 € 
3770 EQUIVALENCE (BSL EKCIOND CIO Tea SLOP CELL EMI S2EE CELO Tae S Sb, 
3x71 OAC Tac Fore COND TRESS a) COCs Teor CE eK Emi, 
we QUEER Tc BO CELE TID AAS TRA T901) OSM Te, 
3773 DUOR SRE PEN 2dd CSKE LORE, TONED CEK CLO TCD) ESTRIAM TRUNS IO, 
vy, WCSTRLUM TRING ED CERICR UKCH TDD COL STRL TXt681), CASTRO, Tatead, 
byer) SISTRLO UXtSOls USTAL IO PMCSEID CGRIGN, PRIS2) 1 CORIEMK IMIS TOD, 
37% BUBAID,TX1540d, FASTIN TXOSSDF ISTRL LT XCS6E) CSTALT TMISTID, 
yn PUALSTIA TNCSGPd, CIRSIA TetSGI) CISTR TMICIIN EFSTR IKE D a, 
nn, O@rBat, THtGS0d 1B TKS SOs CASTALTRIGS1t DAR, PKCESID, 
nny @OCVPLAIC .1X(0622 UIRIB, 1X1G702, (ECRECD, PGS) CE IRIBL Tet Gst 
3780 ALCERID IKE CTBTOT EXE TLOD CTPCOV, IX 7200, WTERIBIXE73 02 
3781 OL CTF We TK ad  CTBATT THE TSI) 
3782 CCESKIOD TKO D,UTSH TODD CASKET 65 COLEME ST KOS OD 
3783 DL COLCME THEL2D 3 CESKORE ST RACINDD CPSTCRL TRUSS ED 
76 CL EPCERE TXe1Odd  (PSCRITMOI9I) REV POA, THIGH) IRSTPOA, TRISTE 
3785 © ASTENT TX1 790) ETSIRO, EKCBO1) 
3786 GCA LTKSISONE CENT TxD CSE OD Rae Trsesent 
187 
3788 
3709 REA ISTRNSTR ICL 
3750 c 
3”) INTEGER SPCODE , TYPE 
ym c 
yas c 
37 € 
355 € seeoM/RIB STATION ANALYSIS -- TIP TO ROOTeees 
"8 ¢ COOSETUP INITIAL CST FOR SKIN AND STR L-PLIES*¢* 
By € SPSELECT STALL} STARTING L-PLIES AS LARGER OF -- 
ins € *l. CINK SKINZSTR L-PLIES FOR BSIR PASS JI. 
3799 € © 2. CURRENT PASS STAII-1) FINM CEPLIES CESS 1 02 IF 
300 c ° CURRENT TOTM $1 PLIES LESS T44N OUTBO 
wot ¢ © START AT BASIC MIN L-PLIES FOR CURRLNT STATIONS 
woe c 3. WIN SPECIF ILD L-PLIES--SEIUP IN L-PLY ARAYS? 
m03 ¢ 
wn $00 SKLUPRY © SKLUDINSTAT? 
3005 SLL © SKLLOINSTAT? 
06 STPLUM © STLUOCNSTAT) 
07 STALL © STLLOUATAND 
moe € 
3309 ¢ eeTEST FOR TIP STATIONS? 
ae OF chs - MSTaTs 101,101,802 
wi ¢ 
wiz ¢ SeINT TEAL SKIN DELTA M-PLIES © 0.0 FOR TIP STATIONS® 
wis tor txsi2it + 0.0 
wis TxS1221 °° 00 
mi5 00 TO 200 
mis 
m7 c eeoSTATIONS 1-10 CHECK FOR OUTED L-PLY VALLES FOR 
mie ¢ * «CURRENT STATION STARTING VALESSSo 
mis 102 SLKO © Txscitr - 1.8 
sere HTO © TKSdI3) - £.0 
321 M00 © ExSCLIy - ELets 
we2 af ¢5400r 603,903,107 
mz3 103 FF (SIL UP - SO! 106,105,105 
ua 10s SLUM © Si KO 
325 103 IF CSTIMLUM - GATTO) 106,907,107 
waz6 108 STRUM © STO 
m2? ¢ 
maze $0? GKO © TxSCI?) - 1.6 
328 MTO © txsrie? - 0.8 
mx HOO © THS1IS) - CLAW) 
mi tf ¢%00) 109.109.2¢0 
wie 1OR IF CSI LP - GAKOD HIOLSTE LONE 
3833 116 SALLI 2 TKO 
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ANE AOR FETE 


671 


CARD HO 


be) 
as 
3235 
3%}? 


Br 


SSSSSECS SESE SEER SSSR EERO EE REE, 


Vee emer a soaitadadaael ATS ed + 


HeVE LIsties 


200 


PPT 


7 


CONTENTS sece 


IF CSTALLM © STO) 112,.200.200 
STRLM © SLIO 


PeeCONER SIZING LOOP--imIS1A COMER © UPPER. EShTisLeoe 

ISkIN © a 
MSTIFF © xSTRU 
Rie > CRU 
RIB + BUTUN 
cue Cit 
GO « flt2) 
wo = Ltd 
STHLO © STALUM 
mote © SO et. 
QM © xsett 
@ 10 306 


PO OER COVER SIZING LOOP--ISKIN = atte 
IskINe 2 
WSTIFF © XStRE 
Riwx = RIB 
inn + MRIs 
@ienm 
GO + E115) 
[NO © CLt6) 
STmMO + SIMLn 
wor ° SALW 
GLE © Ixs(22) 
@0 10 300 


*°eSKIN SIZING LOOP--LIFLY) SEARCH -SiTUP STR GLOM DATAe? 
OFOSTR LT KITSIRICD FOR ISTR, oSTFMH FOR Z, 1, HATOSe 
OSTLFE © xSTEFE 
SIFT = 6.6 
& 62 - TIFT s 3000, 3000,3001 
STEWT = STFDINSTIFF) 


Coens MIN SKIN L-PLIES © [ere 
(fF (HORE - 1.09 3002. 3003, 3003 
som = 1.0 


SA-PLY SEARCH IDMILS. oINITIAL PASS** 
TELIA LIID © 2 OR Oe 

us + 0.9 

ami - 8.8 

& sls - WoPa - 9.8) 301, 302, 302 

asi > 2.6 


SSE TUP AVAILABLE STR AREACS 
0 = som 


CBM © INTICECIELO + CMD © QLEMI) ¢ C3) - END 
WF {DLENT) 3060, 3041, 3041 

MENl = 6.8 

TSTIRO = EWPIS°STALO 

STL TO © GATINOSIFIINSTIFF) © GFMINSSTFWINSTIIV IE © SIFNT*TSTRO 
ABTRO © TSIROCSTIAL TO 

ST. © STALO 

TStR © TS$TRO 

STMT = STMTO 

a@™ = AGTRO 

@M.-O1-n0 

&F ¢OELL) 320,820,305 

ABTRA = 2.050811 ENP19) 8S 

W (aBTR - ABTRAD 306.320.320 


SoCALC STA COM IG FROM AVAILABLE L-SKIN PLY AML ACS 
sR = ASIRA 
STL © INTE ASTASIENP IO) RIND) 
W t2 - WSTITT) 307,307,308 
STM © CMPCRUSISTFNMIASTIFE 1 sBaetiN © STFITIMSTIFL 3 OF MIND 


2608 


AUTOR L Cet CHART SET - SAEEF BING MG CPF LPL MRE - 


Re Pa BS, 


Coslyen HUT LISTING AUTOFLOM CHART SET - SHLEP WIKG AO CF. BOA - 
cao No cane CONTENTS saee 
3905 STIALT © STENT SLOP IG) LPS) 
3908 STR © ISORTESTAL SIAL © & OFSTALTCASIRGE - STRLIV2 OFSIPMLT 
3907 STAL © INTISTALD 
3908 300 IF CSTRL - STRLOD 309,310,310 
3909 303 STALL © STMLO 
3910 HO STR © ENPLSI OSTA 
ye STRLT © GRTINOSTFINNGSIIFF ) ¢ GeMINeSTIFISUNSTIFT) ¢ STENTSTSIR 
yu STALTO = STMT 
yous ASTRA © TSIR*SIALT 
ra c 
3915 ¢ @eeCHECK SKIN-STR CONFIG FOR LOAD DIST AND P/A SIRESSES*#® 
3916 € *CCASSUME L-SIR © MIN UNTIL P7A STRESSES ARE SATISFIED e® 
3917 ¢€ *ORESIZE AS RECO BY INCREASING STR ARLA--L PLIES? 
xe yoo MS * 0.0 
3919 CALL ACPRSKIASINSTALD 
ys20 IF (8.0 - RSKPOA) 321,322,322 
ye21 Bt OIF «62.020 - RSKPOAD 330,360,360 
ya22 We IF 09.0 - RSTPOAD 323.400.4500 
R23 323) IF 61.020 - RSTFOA) 330,300,360 
na 
ne @°S$L ARCH FOR STR AREAS? 
woe ¢€ @UNITIAR DELTA STR L-FL "16 MIN OR STRILIE 
we? 330 OLSTAL = 16.0 
228 46 COUSTRE - STAL) 331.332.3532 
29 33t OSTAL > STR 
¥30 332 STL = SIM > LSI. 
t 331 TSTR = ENPLODOSTRL 
j 3932 STAT © RAAINSSTFNMCISTIFFE © BFHINGSTFNF IN, 1 ISTReSTFNT 
3933 ASIR © SIMTHISIR 
i ny STATO = Simt 
3935 333 CALL ACP RSKIASTR STH) 
i 935 IF 18.0 = RSKPOAD 394,338,355 
t 3937 3% IF ¢1.020 - RSKPOAD 332,360,360 
yose 335 IF (4.0 = ASIAN 336,400,337 
¥939 335 IF (1.020 - RSTPOA 332,360,360 


| 
| 


S°SIZINGCI) OR «= CHECK STRILI - .S*OELTAL. Ce 
337) OIF COLSTRL + 4.0) 338,338,339 
B38 STAHL + SIM - CLSTRL 
@0 10 360 


20¢PsA OK FOR PT 1. CHECK STR OLOM FOR LOCA STABILITYe** 
339 CAL ACSTROILSTIO? 
AF CLSTIOD VO,340.401 


Bro 

Al 

He 

ya 

we 

WAS 

Ba] 

wa? 

me 

ms 

mw PO CLSTAL © INT(OLSTAL 2.09 

mI sim - $1M% - ASIA 

me Bel TSTR © ENPCODOSTAL 

Pd] STALT © BINGSTONHIRGIIFE) © GFMINGSTFNEINSTIFS I © TSIROSTONT 
Be cal aSIR © STALTTISIR 

Be] SIMLTO = STALT 

ms CALL ACPRSKIASTR SIAL! 
™7 
™s 
™ 
980 
wl 
362 
m3 
Bal 
Ra) 
Wes 
ws? 
we 
Jose 
3870 
w71 


IF 68.0 ~ RSKPOAD Ju2,. 343,03 
Whe IF €1.020 - RSKPOA! 345,360,360 
Ws IF 61.0 - RSTPOAd BYS 400,337 
Bee IF 11.020 - RETPOAD 3¥5.360,360 
BS IF 64.6 - CLSTAL) Wh8, 360,360 
eS CLSTAL © INTEL SIM 2.0) 

stm = STM ¢ OSIM 

00 TO Hi 


oP RENTS: 


LS © SEARCH CONTROL 10. GeFIRST PASS© 
© =1ORESIZING BY L-PLY INCREASE BY 2° 
© = BORESIZING BY L-STR DECREASE BY It 


nanan 


MS 
wo mS ° 0.8 
CALL ACHIRSKIASTR STALL) 
WW URSKPOA - 1.6) 331,351.360 
nr Wi iF th. - MSIPOAD 360,400,500 


nn ¢ Se(MCRE ASL STIR L BY 2. MSeie* 
Fi n,m mouse t 
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CBs Inthe INPUT LISTING MUTOFL OW CHART SCT - SHOLP wlteS AND EITOINALL MOE - 


CARD NO ooo: CONTENTS sees 
39% MI STM © SIRL * 2.0 
3977 We STR» CNPISI CSTR 
3978 STRLY © GHMINGSTFNHINSTIFE > © BFMINSSTFIS INSTIFFD ¢ STFNTSISIR 
3979 ASTRA « TSTR©STIALT 
3980 STALTO © STRLT 
398; CALL ACPRSKIASTR,STRUD 
Jee IF {RSKPOA - 1.0) 363,363, 364 
3983 363 IF (1 0 - RSTPOA) You. 366, 166 
398% ses OF 12 + MSP 365,365. 361 
3983 MS SIAL * STM 8 1.0 
268 00 10 %2 
3987 c 
3908 ¢ *S*SEZING OK--RCSIZC FOR L-l IF MSHI. SET Serer 
3983 366 IF IMLS = 1) 367,367,450 
3990 7 OM 2 
3991 STRL « STRL - 1.0 
392 60 10 %e 
3993 c 
39% € S9°PsA CECK OK--SETUP FOR STR LOCAL INSTABILITY CHECK ee: 
3993 c CCCI iad STR AREA CONVERGENCE LOOP FOR LOCA STABILITY** 
¢ PoSIZE WEB AND FLANGE LENGTHS AND STR PROPERTICS** 


aH 
3997 400 TBSTR = ASTR/ES 

98 CAL ACSTAGILSTIDD 
99 IF {LSTIO} 600,600,401 
2000 


¢ 
§001 c CHIN INETIA. DELTA L-PLY © 16 OR STA Lite 
"002 SOL CKSTAL © STL 
1003 IF (STRL ~ 16.0) 402,403,403 
80 “02 OLSTRL » 16.0 
800 403) STRL © STM © DLSTRL 
§006 ISTR © ENP(OD ESTAR 
9007 STALT = BHMINGSTENHINSTIFF) © BFMINSSTFNFINSTIFF) © TSTRSSTENT 
%008 ASIA = STALTSTSIR 
8009 STMLTO © STALT 
"010 CALL ACPRRSKIASTR STRLD 
€oll CAL ACSTROILSTIOD 
9012 IF (LSTID? $05.405.404 
8013 40 IF (BOTA - BHOTS - 0.10) 410,410,403 
01% 
8015 c *eSTR OK. CHECK AT CELIA L/2ee 
2016 805 IF (DLSTAL - ©.0) 406.406.407 
“017 406 STM > SIM - ASTRA 
9tie 00 10 410 
"019 ¢ 
8020 907 OLSTAL © INTIDLSTAL 2.0) 
“021 Sim ° STM - OSTA 
S022 408 «TSIR = ENPIG) *STRL 
8023 STALT - BWHINSSTFNHINSTIFF) © BFMINSSTFNFINSTIFF I) ¢ TSTR*STFNE 
hos] ASTR © SIFLTSISTR 
9025 STALTO © STALT 
8026 CALL ACHRSKIASTR STALL) 
027 CAL ACSTROILSTID) 
8028 W tL$1102 405.405.4909 
8020 NOB OIF (BOTA - BOTS - 0.107 410.410,4090 
9030 8090 IF (4.0 - DLSTRLD 4091 ,410,y10 
8631 4091 DLSTM © INTIOL SIM 72.0) 
wolz STM © STM © OLSTR 
8033 @ 10 408 
Oe c 
8075 
2038 ¢ SOeSTR AREA TOO SMALL. INCREASE L-PLIES. P/A Okeee 
9637 =10 SIM = SIM ¢ 2.0 
some TSIR © CAPCO) STL 
neyo SIMLT © BROTINGSTFNHINSTIFF) ¢ BFMINSSTFAT INSTIFF) © STFNTSTSIR 
Atal) BBR © ISTRSTIMLT 
AT a] TOSTR © ASTA/BS 
wn? CALL ACHRSKIASTR STAL) 
Ns CALL ACSTAOCLSTIDE 
Saad UF CLSTHOD SUE ett ed 
OS SI) SIM © SIM + 1.0 
8ON6 WIR TSTA © CNP eSTAL 
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OB67INE DN 


CARD NO 


8047 
SONG 
4049 
5050 
SOSI 
8052 
4053 
80% 


80S 
4057 


4060 
406t 


“C39 
*v90 
4091 
4092 
8093 
0% 
9095 
8096 
4097 
4098 
4099 
8100 
9101 
“102 
4103 
810% 
8105 
S106 
"107 
8108 
8109 
410 
was 
site 
sus 
Sits 
911s 
S16 
si? 


Weal GIST ine 


. 


aanan 


tee 


813 


600 


601 


602 


603 


606 


612 


CORTE RTS eeee 


STMT © Cees eSle rece TIF) 6 GF MINeSEe PATIO © St eTSTR 
ASIR = ISTASGIRLT 

TESTR = ASTROS 

CAL ACHRSKIASTA SIRLD 

CAL ACSIRGISTIO? 

WF tLSTIO) €00,€00.%13 

SIR. © STM 6 1.0 

GO 10 SI2 


eeeChE CK GLIA IN TAHILITY AOD SIZE RIRS FOR CRUSHING 
© AD COLUMEE SUFPOIT eee 
POSTRINGER AREA CONTAX [D=td Ree 
MRE OO 
RIBCUT + 0.0 
Cee « Ce) + OLEMT 
(5x * ENO + OLCNE 
eripe oo 


@OMIN COL LENGTH FORT ALL LOADGS? 
00 604 Lol ILFACE 
WF CSTRESSCLSe IN NSTAT LO) EC4 Cu 802 
ESTE © ELI LISTBSIR 
YPLATE © ACSTISIYBAR TSK 72. OF/UAESTI © ESAILDOTSED 
OLl = ENQELLOISTR7OS © ECRILISTSKe e312 0 © ALSTISCYGAR - YRLATI 
ddee? « ESKILDOTSK*YPLATE See 
OR © SORTICE 1) +9 CO9*DLL/STACSSEISKIN STAT L 9) 
(Ff (BRIB) 603.603.6020 
tf CBR - BRIB) 603,604 ,60% 
BRIB © BR 
BRIER © BR/BRMAX 
If ¢ BRIBR AT. 10 > BRIT + 1.0 
YPLATE = YPLATI 
AESIR © AESTE 
CONTINUE 


PeCHECK IF COL LENGTH IS BETHEEM MIN/MAX REQDere 
IF (8R1B8 - BRIBMK) 605,610,610 
If (6R1B - BRIGMN) 606,6100.6100 


**COL LENGTH LESS THIN REOD. SIZE WITH LARGER SIR¢* 
°CHECK STATUS OF STR ID Re 

IF *2 + MR? 607,607,609 

STR « STR 6 1.0 

60 10 609 

MRI 

STRL « SIRL © 2.0 

TSTR © FIP 19) 9STRE 

SIRT © BHMINGST HINSTIFF) © BFMINOSTFIC UNSTIFF) ¢ STFNTOTSIR 

STRLTO © STALT 

ASTRA © TSTIR*STRLT 

TBSIR = ASTR/BS 

CALL ACHRSKCASTR STRLI 

CALL ACSTRGILSTID? 

60 To 601 


S°COL LENGTH OK. CHECK STATUS OF STR ID NLReo 
"EXIT ON O OR 2. LOOP ON I*e 
BRIG = BRIENK 


IF (MLR - 13 612,68. 612 
MRe? 

STRL =» STM - 1.0 

00 To 609 


SeeSTR AREA OK. OESICN RIGS FOR STRENGTH AND STIFFNESSese 
SPCRUMINSTAT? © 0.0 
Phe 0.0 
£LSK © €LO 


OO G16 Let. TL CASE 
Pitre 60 


zoval 


BtCA Cm Crest OEE - SEER Bites AD EPC PASE 


ag = 


O6rINe m® Pet Crisis ASTOFL GH CHART SET - SHECP WIRD NG OPIS MOLE - 


CARD bad aoe8 CONTENTS sees. 
Sts UE ASTRESSTISAIN STAT Cb) € 0.016.613 
sits ELS PP oe STPESSIISKIN NSTAT Uo ec ee RIB UCTSH ESP IL Ee TBOER CHAE Leb} 
si2o sie2 0 
“t2i If teild - PPD 64.616. 616 
sl22 Sis Pade Fe 
e123 PL = INTCPULPAENKEELD 6 O38 
ale 16 6PM - PLD 615,615,686 
its) GIS SPCRUHINSTATE © PIL? 
8126 CRUCI? NW TATE RL 
ale? Tre ™ 
4128 Slo CONTINUE 
Sled c 
SL30 c SoSETUP L WOON PLIES FOR RIBS.F/SPAR ND R/SPaRee 
asi c MIN NO OF L-PLIES © fe 
atk c COMIN M-PLIES FOR RIBS « b.0ee¢ 
4133 c eCHECK FOR TEPSIC COVMERE® 
LTE) ob = ISIN) 6160.6169.€19 
ats Gt60 (L110) © PK 
N16 €ctbna = 6.0 
“137 UF 4EL C10) - 1.0) 617,618,618 
8t3a G1? ELClOH © t.0 
9139 G18 Ckt7) © ELri0r 
&I40 CLtrss © ELCIOr 
wists CLEN2) © XNCIO, 11D 
4142 €Lt9? © NI7,8) 
ees ELERS) © NETS. ON) 
@ T0 620 
c 
c *°TLNSION COVER. M-PLIES OF, CHECK L-PLIES?® 


619 IF CELdtO) - PR 6190,620,.023 
6190 ELd10> = Pm 
ELenen » mtO.ta 


ooRID HEB OESICSCC? 
620 FACT + 2.5 
IF ¢“PCOOE - 1) 6200,6200.6201 
6200 FACT © 1.21 


eerSETUP ALLOWABLE STAZILITY DATA AT MAX CRUGHINIG LOADe+* 
G20i LCASE © CRLCI7,NSTATI 
CALL CKSTAB CR,HS EL C10) EL CEE) EL 092) PAL CASE DOC U3) FACT FCRC FC 
URS ACASE .TCPNL ED 
FCRUT STAT POF CRE 
FCRIG STATION CRS 


c *HCHECK ALL LOADS FOR STABILITY*® 
00 G25 LCASE* 1 ILCASE 
es 
G20 CAL CKSTAB IRM ELI10) CL C81) EL E12) PILCASE) OC 83) FACT PCR FC 
URS.LORS CICPNL ID 
W Ub. - Rd 622.6235 .623 
622 1+2 
CLAdt? © ELEN © 4.60 
ELenSr © mesos 
GO To 62 


G23 IF t2 - 1) 624,624,625 
Ge CRE 7 NSTAT HOF CRC 
FCRIG LNSTATI CRS 
CALCIS,NSTATI © 20 ¢ LCASE 
G23 CONTINUE 


*OCOLSION RIBS FOR SUPT STIFFNESS*® 
B30 TRIG © 2.OEMPEDIECTIOH © 2.OkLeiis © ELabess 
00 GW Lol, ILCASE 
WF ESTRESS* ISKIN.NSTAT.L DD 630.6 F.63) 
G31 CIMTAD © WIDE SoH s125 OOS TRESSIISKIN.MSTAT LIBR 1B 
G32 CRIB © MLLENZ)°ENQIILLD © 2. O°LLAdTHENOIY LP © EL UIONSENDIZ LOE 
INPCOI/TRIBS2 O 
CIRID = ERIS 963712. OF TRIB © 2. O° TRIBS1HS72.01¢°2) 
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SELEGSEESEEEE ES 


theur LISTING BUTCH LOW Coded SET - Cn EP WING AE EMER OSE MOLE - 


eeee CONTENTS 


tr IEERIB - CIRTOM? 633.639.638 
G33 Cuehid e Ercthtr es 10 

TLelas © RNEIOITD 

CALC IS .NSTATD © 20 64 

Go 10 632 
Ge CONTINUE 


**CAC TBAR RIG ND TOT IBARee* 
INCLUDE COMER ATT FILLER. All AND FROTECTIMG FINicue 
650 CF » CFRIB 
TRRIB = 0 0 
WF 01.0 - SPCOOE? 64t,64o AeD 
641 CF ee 1.0 
TBRIB = HS/ENPI@ SC TCPM EOC) © DEROD 
642 TERIO © CHS°C! “CIRIB © PFE SSP/ENPIGID © 2 OFTRIB ¢ 16RIB)/ERIB 
TBCOV = ISK ¢ PFFSCV/ENPIB) © NOTR/HIDE SLASTE +.  FSSP/ENPIB) OTP 
TBFIL © %.O°E. OFENPISD 
TOATT © O.0:473/BR1G%1TSK © TBFIL ¢ TRIB ¢ 0 G25) /ErP18) 
Ter tt © TRF IL/BRID 


c 
TSTOT © TOCOV + TERIB ¢ TOFILe TBATT 
c RIBCUl = 6.0 INDICAICS 1ST RIB SIZING 
¢ RIBCUT © 1.0 INDICATES 2D. 3RD, CIC. RIB SIZING IN THE SEARCH FOR 
¢€ MINIMUN TBTOT 
ig RIBCUT © 2.0 BNDICAICS THAT THC MINIMUN THTUT HAS BIEN FOUD 
c 


6.20 1F ¢ RIGCUT = 1.0 ) 6430,6425,6435 
G30 IF ( BRIB GE. BRIAMK » GO TO 6435 
6431 tetOTl © TETOT 

ASTRI = ASTR 

STALE © STRL 

STRL = STRL ¢ 1.0 

RIBCUT = 3.0 

60 10 609 
Gr25 IF { TETOTL - TGTOF > 6440.6435.6431 
440 RIBCUT = 2.0 

TRIO" TRITON 

ASTR © ASIRI 

STM © STR 

GO te 609 


*eCOVER SIZING COMPLE TED--CHECK FO" L~SKIN SEARTH®? 


eoccters 
AT wie O 


B000 IF GAPRIID( 12>) 8009.2009.600! 

BOOI KRITC (6,CON ILS NSTAT MAX, ISKIN 

BO! FORMAT (26H1 9 *"ACHSIR SUBR----- 11$212.6H STA*12,6H = PT*1%.10H 
§ Cov 10el2, 7640 1x) 

OF2 FORMAT ‘SHO XS) 

403 FORMAT (3X,13,3",5816 8) 


¢ 
00 804 N1,160.5 
Keno’ 
WRITE (6.Q039N,CTXCNT Te OD 
804 CONTINUE 
¢ 
WRITE (6,802) 
00 905 NeI,100.5 
Keone 
WRITE (G.OOIIN,TXSETD eM RED 
@03 CONTINUE 
c 
@009 IF INN) 700,700,999 
c 
Ceeececers 
¢ 
70 AF VILS - 1) 701,702. 730 
c 
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sees 


ee 


wise 


(emu LIST is AUTOR L Ca CHART SET - SHEEP Ri, AO De Ce OAL - 


nana 


701 
Fou 


WId 


ns 


70 


m1 


CONTERIS 


eOIMITEA SIZING--SAML TBAR TOTAL IL .MLND SHIN 
© AbD STR CONF IO DATASS 
*@OUNCREASE L-SKIN BY | FOR SLOPE TEST#* 
* SV use ss 

Use 

Ixss2) = E10 

a.o- 0+ 1.0 

Txsep) © TeTOT 

THSt3) = CMSK 

TxSi41 © ENSK 

THS(S) = TSK 

IxStG1 © ASIA 

1xS17) © STAL 

TXS(@) © SIRT 

THS¢9) © TSIR 

TXS¢10? © BRIG 

Iust23) © OLEMI 

TxSt2t = OLENI 

@0 10 304 


*@°SECOND PASS--CHECK WT SLOPES? 
AF UNSC) - TRIOT? 703,710, 732 


eruUSE PT 1. AESCT DATA AND RE-CALC*? 
C0 « ELN - 1.0 
ASIA © TXS(6) 
SIM © TxXSt7) 
STIMLT © IxSi8) 
QUEM © TxS123) 
OLEMI © TxXSI2N) 
Kse8 
@0 10 0 


eer WA. COVER OESION--SAVE DATA AND CHECK FOR 
© TENSION COVER DESIGNS SC? 

STRINOUISKIN, 3,NSTATI © YPLATE 
SIRINGIISKIN,S STAT) © [STR 
STRINOCISKIN,S.NSTAT? © YBAR 
STRINOIISKIN.G,NSTAT) © BH 
STRINOCISKIN, 7.NSTAT) = OF 
STRINOCISKIN.O.NSTAT) © BHT 
STRINOUISKIN,O.NSTAT) © ASTR 
STRINGUISKIN,IO.NSTAT) © Oa 
WF CbSKIW = 2d TENTED Pe 
STRINGCI.E.NSTATI © OS 
STRING(I.2,NSTAT) © GRIB 
STRINO(2, 1. NSTAT) © FSTR 
SRRUINSTAT) © BRIGR 


SeSAVE CRITICAL LOAD DATAS? 
BWOOUINSTAT) © PSKCAL 8S 
STMCUINSTAT) © PSTCAL/BS 
FSKUINSIAT) © PSKCAL ASK 
FSTUINSTATI © PSICRL/AGTR 
CALCIS,NSTATI © LCCR 
FCReANSTAT) © PCCRI 
FCRI2NSTAT) © PSCRE 


oo$ae STAII) VALUES FOR SETLP OF STARTING VALUES AT 
© GTA letbece 

TxSeqib © Cut 

TxBt12t © CLSK 

THS(1}) © Be 

THSI1%) © ATR 

THS(15) = STALT 

TxS(250 © OLCAE 

Cucht © CusK 

ELt2> © Cox 

Curd) = ENsK 


@0 10 250 
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ee eee oe Sacer ae ees ea z = eemncrenraanete a arene 


O67 Ins he Wr Cistines MTU LOM Cuakd SEE - SEF Wie WO CITI A ALE 
CakO NO eee Cortinss ooee 
833 € 
w3te W2  SIRINGC2.2.NSTATI © FSIA 
e333 BRR INSTATD » GRIER 
stn € 
8335 € OMAK TENSION SIRESS FC LEER COARSS 
5336 SAPOLINSTATS © PORILSIRER 78S. 
337 STMOLINSTATD © PSTRULSTRER EGS 
wie PF SKLINSTAEL © PSKILSTRIRIZASOT 
8319 FSTLENSTATS © POIRILSTRLRIZASTR 
who FCRIS.NSTAT! = PCCRI 
awl FCREY NSTATE © PSCRI 
W2 ¢ 
a € Sa STALE VALUES FOR SETUP OF ST4RT' YAUCS AT 
as c © Stailettece 
ahs TKS(16) © Cut 
a6 WxSC17) = CLSK 
ay? TAStIAD © Ma 
wise TXS(19) © ASIA 
v3s9 THS1201 © STRUT 
8350 IxSt22) © LEM 
em Cust © CLSK 
ets CL6S) © CrsK 
eys3 [Lt6) © CNSK 
ath c 
9355 @ TO 600 
BS 
935? ¢c eee = 2.3.4. CHECK STATIS See 
ene 730 OF CALS - 30 738, 0,710 
ass 
5360 ¢ eros e 2. CHECK TBAR SLOPE ere 
631 734 WF ATBIOT ~ TxSttot 732,733.74 
“362 c 
“363 c @COINCREASE SKIN L-PLIES 
i 30 
4355 Tee use? 
q 4366 tsr2) © C0 
“357 10+ CLO + ASK! 
4368 @ 10 P10 
uo € 
8370 € CoomIN BLIMEEN LEXtE-1) WO LSKITIeCCe 
“371 € S°SETUP SECOND LOOP CONTROL OM ILSe3eee 
37 733 ELOMAX © CLO 
9373 GO 10 7340 
“3m TH CLOMAX = E10 - 1.0 
35 THO ELO © TxSi2h + 1.0 
Cee “3% used 
} si7 GO 15 30H 
2d, € 
an c eeelkSe3. LOOP PB SEARCHIC? 
4380 ¢€ SOCHECK SLOPES eee 
§ y3e1 ¢ 
fi vise MO IF ¢ TMTOT - Txsttr » We, 710,703 
=3e3 We2 IF 1 CLO ~ CLOMAX > 7011,710,710 
e wey € 
AP) @00 CONTIN 
u3es € 
ow? Coeecccece 
308 tm | 
aes @0 10 e000 
970 Coeoccceee 
e381 ¢c 
e392 € 
uve} c 
RIF O99 RETURN 
AP] ND 
uw8 CosecccecccereacscsecsseeecrecrsseseeCCSeeeTeSETSCETTCCSSCCTOD sh. e008 
on? € 
se € eee SSUBROUTINE ACHRSKe sere 
30 ¢ SO °SRIN-STA LOAD OIST. SKIN STABILITY - SOV. COMP. ARAL YSIS¢*® 
00 4 
W8Os Cesccecessecccanrecssecesseseseusscecesseseeensseneecsaseesssceseerseres 
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eterna deem erteere ememmecnen paren enone ee 


ae 


CoN 


Car ND 


wso2 
8403 
ase 
4605 
e406 
&e07 
8408 
4809 
8610 
eet 
eet2 
weit 
Th) 
e415 
ot) 
wut? 
avis 
aid 
w20 
e421 


BOUT Cistins 


. 


aAnnnannana 


eee COTENIS evoe 


WGA ACMRSA ASTRA STFLY 


eeeSUBR "9 CHECK AD SITE SKINS FOR STABILITY WO 
CALC REST Ite? LOD OISTRIGITIONS EX THEEN S IN-STR 
BASED OF FINA SATHIL ALN! AD GINEH SIR ARE ACS? 


e°GTR AREA AD ND OF SKIN L-PLILS FEMAINS COSSTAUS- 
a WISP INSD W2RICS AS FICD 10 SATISFY STABILITY 


MO INICRACTIC’N EGZATIC. --tRC © Roe?) © 1.OFe 


b1OCLOOd THeGOD) .CHI20<8 


COretON 1120601 0120609 .COr2c- 


OLPENSION ENP19) ENOIS 200. €'.613,20) STRESSIO. 14,201, 
16120) .CNTI9I?, 
216169) CSK620° .PSK62OF PSIP ICS). Se RIZOD, 
Meotr201, 
SAPRIIDIS2) 


COUIVALERCE (EWP U1) OL NNSS9) CPOE Th THIGOLND, tGI8? CHI2023I0, 
BCSTRESSIN DDD CTOEDS CECKCE ED PC TCUDD CNT OED TOISROD, 

ZICE CMTC DSDD ICO LCHTISSHD ET KEG COCTDD CCSACHD THIOEDD, 
BEPSKILD TMOLORDD CPSTREGD TXCS2ODd CShMO ED TXCIMEED, 

IBS TKEOED CELOLTKIS3D2  0E Dd, Fee Pend CED, XESS, 

SHC UMA D CEM TR SbD ASHE MK TORN OSM TANT) OAGKT IMIS OD, 
 PASTRL UXCTED CPP, THIB1)  ARSTFOA, TKI9IE, 


BIAS, 1x16) 
PURAE TK1101d, CEOO, TKC29I9, 

BUISKINNDEI2]0) TILCASE MOIST ID EL CCR NDIZ9ID, 

DUAPPTIOUT) .TE10700), INMAX,AOI SID) CNSTAT .NOCESDD, (PEAKE NDE 300) 


CQUIVALENCE 1ESKCM TRCTSID CPEXCRL TO Cdodd IPSTCRL IMCISHD, 
DOPROCCRL ,TKE1G)) (OSKCAL ERAS TEE CPCCAL TRCIGHD, CPSCRE UKE IGd, 
BURAK, TKC200) Ra PMCQVID ROE THA2SH) ORST TXCASID, 

SCPC TCAD Dd, CPHD, TX62503, PROVE TK 2GN, 
COLE TKI0192, COLENT THEI299, 

SIF STR, UX1G1 9), CBWOTS, TX¢ 79d IMFOTS TKCTIOD, 
GILSTRCR NOL37)>, 
‘PIOSTRCS.01590)), IDSTRCG .DIS999>, 
@lEGOTI 1D. Treas, 

BERASKT ,TK1277), (RAST E IX(2B29 

A. (DPOALP 018451) 


CooRMI TIM IZE DATAre® 
' {Ml © CHO + OLE 
(CML © (NO + MEN 
TSK © 2.07 WPCOeHELO © 2.0°CME © ENED 
AKT © TSK*BS 
OX © MAK | 


TIAL DATA ON APRIIDINSTAT) © Lee 
TF CAPRITOCINSTATID 100.100.1993 
090 BRITE 16, 191 NSTAT MAX, ISK IN. BS.ELO.EMO.ENO. TSK ASKT.ASTR SIAL 
190 FORMAT F1MO./724HO  ¢*CACPRSK SUBR---STASI2.6H PTeI4.t0M COV I 
10°12 ,04 = BSTRFE.3,4H 999, OK, V6.1, F9.9.76.0) 


oooSTAMILITY CHECK--SEZING LOOP. MLetere 


169 O00 120 bet, ILL ASE 

O12 EIb © CELOCENOET ND © 2.0°M1ENQIN MD © ENE OENOI2 WI) EMP IB)? 8 
C22 © MELOCHOIZ MD © B.OOEMI COs ede Et NOTE WED ee. Boreas 
G2 “(OUI TELO-ENI) © O.SoLMISTENOTE MD © CNDIZ MW) -2. 
ROENQES ae ek. OCP TED 
Ce © CLELOCTNT EMIT Mt © CMOS. MICEMIO2. be. FNP COD 
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TCL Oe CHART SET - Ser MID ROTA MANE 


INT PSU LIST tee MTU LO CHART SET - SHEEP Wits AD CPLA E HORE - 
CARD ND eee CONTENTS re 
Ne} (OO © ETN be Lerek terete 
Dh Pal ¢ 
ws Mae TS eTSa she 
we Ol © Etiean 
we? Bee + Cecenn 
ase Di2 eh 1242 GIer enn 
wen ¢c 
e480 € #eCmC LOZD RATICS*® 
e861 PUKE © STFESSIS PSTAT Me 
esa Prat © SIRESSU1S: INPATAT ND 
4483 PCL © 65°Pral 
ae RAE © ASKTASTROECO/ENI1 NE 
WS SARIND © MAE S15.0 6 RAEI 
8686 UF CSaReur - SARINDD 19,9110, 8010 
we? Hdl) SHR e GS Rin 
a4ea 1U1G PSKEND © SKREMECPCI 
Od PSTRIND © PCH - PSKIND 
4450 PRL © PROT SSARIND 
a9l WF sPAdd 292,1120, 1120 
e492 12 PNKI © 0.6 
a3 1120 CSKIND = £00 
Dk a] WAX] © NAAXT © 3 
bale) ¢ 
4896 16 QNCRD Ob3,003, 01S 
e497 T03  UF CPRKCAL ~ PROT 91S, 01S LIS 
woe Cte PROKRL © Pre! 
899 LcCcR ow 
9500 OSKCAL © FOXY] 
850! PSKCRAL = PSKINE 
4502 PSICR © PSTRIND 
9503 ESKCRL © ESKIND 
SN 
9505 ¢ *OCHECK STABILITYS* 
9506 015 THETA © SORTIDISD220/01- 
9507 PCCRI = 19. 739/BS*DI2/HS<1 TIA © 4.0) 
9508 W CTHETA = 3.08 116.916.1837 
4509 116 PSERI © %.O7BS°SORTID22 90121 5910 G3ACTHETA © ."B2RSTHETA © 14.79 
8310 GO 10 118 
esit 197) PSCRI © &.O/BS*SORTITHETASDI2°00 71 /ES "18.125 © S.O5/TPE TAD 
asi2 
933 c SeENTERACTEON MATIOSS® 
ase 118 RCL © PKI PCR 
9515S RS) © ABSIPHKYI/PSCRID 
a6 Ri © RCE © RSESRSI 
as? 
9518 c oOPRINT POINT DATA Of) APRVIDINSTAT) = ioe 
9519 AF CAPRITOINSTATDD 919.019.0189 
§S520 11@O WALTE 16,2180 2M Pesaxt ELO.CMT ENE 15K ASKT LOO .ENQU1 ND RAE SIRINI 
e821 U PSKIND PSTRIND PRO PNXYE AERC) RST LF AX, SKAMX.APCCRI SCRE O11. 
as2e 212,022 WHE TA.E 11 £22.€12,612 
e523 0989 FORMAT CIHO.2N.12.2K. 16.20. 7.1279. 4.4L 16. O.72K 2611.1 ONE 
aay $16 O.702K,F9 %,03K.2F9. 1.4616. 0/52x 4616 8) 
523 
Les) c #°CHECK FOR MARGINGS 
9827 VID EF OD.O - RED 120,823,523 
s820 120 IF (RI - 1.0 - DPOAEP? 121. 125.122 
as28 12) Rte to 
9530 
853! ¢€ SOSTABILITY CRITICM --A0D M-PLILTS AND CALC NEW NPL IL ot? 
siz 122 Emi = (M1 + 1.0 
ai EME © INTICB*CELO © CIP e C3 
ash TSK = 2.O°KMPIGILLO © 2.0°CM) © ENIF 
85 ASKI © TSK°BS 
ss mR et 
wai? @o 10 018 
S38 ¢ 
=38 123 UF CHER ~ 1d NEN 28 
ee 1 1 tPA - REO 123.529. 128 
wi 125 RAK = RI 
bald PSKCCR © PCCAT 
aw PSKSCR © PSCRI 
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Se eT INE APARNA ARNE 2S SSS ORONO RII SRE 


L Tablae! 


CARD NO 


aye 
wh 


«7 


ENPUT LEST te 


€ 


MITOFL OM CHART SET - SETP 
eee CONTENTS. 


cca oH 


129 CONTINGE 


eeeChE CK FOR LOOP STATUS AND LOOP IF Mel WD NM Relese 
oolF MCR = O. CHECK CLEMI WO RMAxees 


*SECOM LOOP REQD FOR PLC ALC OF LOAD DIST WITH td SKING 
Wah - MERE 140,130,132 
$300 1F UM - 8 TST OEE EO 
isi me? 
mR 2 
Sr = 8.0 
GO TO 109 


olf RMAK © 3, OK. IF NOT CHECK CXC] FOR NON-ZERO NO. °° 
*¢1F QLEMI NOT ZERO, DECREASE M-PLIES BY | AND RECACS® 
132 OF cow - 9.02 133,180,133 
033 IF COLEMI) $40,180.10 
1h EMI © EMI - 1.0 
CLEME © OEM - 1.6 
Ent © INTICE*tELO © Emi) ¢ C3? 
TSK © B.OPENPIOICLELO © 2.0¢CME © EMI) 
AGKT © TS$K9B5 
@0 10 100 


#CCHECK L-PLY APPLICD/ULT P/A STRESSES AND RATIOS*S*® 
*oCaL® MIN 8/3 MEQOe? 
188 RSKPOA = 6.8 

RSTPOA = 0.0 

FSR = 0.0 

BOTs > 6.0 

@Fols ¢ 6.0 

rsim = 6.6 

ABLE = 2. 0°ENP 19) *ELO°RS 

ABTAL © ASTR/(STRL OCP SI) 


*°SETUP DELTA NO OF WO WN PLIES** 
QUEM © EMI - EHO 
OQLENI © ENI - ENO 
IF ADLENT) 1400, 0401, 1403 
1900 OLENI © 6.0 


SPRINT SUPPURY DATA ON APRTIDINSTAT) © 1¢¢ 
19Ob FF CAPRITOINSTATO? 149,141, 1402 
W802 WRITE 16, 1403 LCCR ,SKRHX.ELO.EMI LENE TSK. ASKT ASKL ASTRA. ASTAL .STAL 
8 PSKCAL PSTCAL .ESKCAL ,PHXCAL ,OSKCAL .PSKCCR PSKSCR 
W403 FORMAT (1HO,//2K,12,2K,F8 4.7.0 .6F9.9,/7K OF 1b.) C16. OOF it 


181 OO IND ed ILCASE 

ted 

TF UPSKIMDD BOR, INS, INS 
we tee 


193 SKAPL © PSKIND JAS 

STAPL © PSTRIND JAGTR 

SRALL © ENKEI NEO. SOZENP IO) 

STAAL © SKALL 

RAGK| © SKAPL/SKALL 

RASTI © STAPL STALL 

AF SRSKPOA - RABKI) 144,145,195. 
188 RSEKPOA © RAGKE 
18S IF URSTPOA - RAGTID ING. 107,567 
18GB = RSTPOA © RUST! 


oomAX COMP GIRESS. GAVE LOAD ID FOR MAX SIRESS<* 
SeCRITICAL B/T STRESS © FIMAX STR STAESSI¢* 

187 OF SSTAPLD 1975, 1978, 1970 

1078 TF CFSTR - STAPLE 1471, 1992, 1972 

S871 FSTR © STAM 


e@rl CoeCK ee 
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MING MO CPE MOU - 


anne 


OS sIse Wet Citi MNO LOS CHART SET - SARE biltes WO EME E MOAT - 
CARO WO aces COmTEnTS “228 
4bi5 IN7e FOTR © EBOT STAR 
8616 BOT! © SORTIOGIEC S*EOTHE 
NOI? IF ABTS: 1s Peds Re Ih 75 
x61 W673 TF (DOTE - BHDTSD INA, TN, 1682 
6619 ISM BHOTS = BOTT 
4620 USTRCR = 
8621 1489 BFOTS = SORT TOSTACE*GINI/STAAL > 
8622 IF 0 BFOTS + 1490, 1490, 1891 
8623 (691 IF « BFOTE - BFOTS » 1459,1490, 1873 
Ara) 1890 BFOTS + BOT! 
663, GO 10 1879 
6626 
| 8627 c **TEST FOR LWO COVER. SAME MAX TENS ICP STRESS FOR Lietee 
4620 W675 TF 12 + 156 IN) 1876.14 76. 1879 
| 8609 IN76 TF CSTAPL - FSTRED 9977, 1477, 1979 
4630 1877 FSTRE © STAAL 
86) c 
8632 4 @OPRINT LOAD SuPPVRY DATA OM APRIIDGHSTATI © Bee 
8633 1479 CF CAPRTTOUNSTATIN 169,169,148 
4634 148 BRITE (6, 1480N.REXPOA,RASA | PSKIND SAAPL SKALL RSTFOA,RASTI PSTRG 
635 OND STAPL STALL 
4636 3480 FORMAL (34,12,2K,2F8 W. WIN. 2.28.4 Wd 
“637 c 
4638 189) CONTINUE 
8639 ¢ 
8640 
S64 199) RETURN 
N6N2 [nO 
S643 Cuvvovrecessvsccercssescucuersesesssseresen  veccussunccsssseessevecee 
N64 ¢ 
ONS ¢ ee ee eSUBROUTINE ACSIRGSseee 
8646 c CoOSIRINGER CLOME TRY/SECTION PROPERTIES - ADV. CORP. MULYSIS*** 
§647 c 
6648 
8649 ¢ 
8650 SUBROUTINE ACSTROCIO? 
W651 ¢ 
652 € #eCeSTRINGER GLOMEIRY SUDROUTINE seee 
8653 c SH°CALC AREA DISTRIBUTICNS BASED ON CRIPPLING B/Teee 
6W € “TYPE OF STR* £, Z, T, HATS® 
465 ¢ *°STRINGER 10 © NSTIFF. tel, 292, Sot, wenater 
5656 ¢ 
“657 € ***OISTRIBUTION 1D © 1D. Oe0K, IeSTR AREA 100 SMuL eee 
4658 c 
6659 COMPION TI20G0) 012060) ,.CDI2000! .NOL 100), TH(900) CT (2048) 
8660 c 
4661 DIMENSION 1X1 160), 1XS09009 ,CNT(SI), 
"662 SSTE NHS) STF IS?, 
6663 GAPRTIDI tet, 
La] ects) 
4665 c 
"666 COUEVALENCE (ENP OED OF NI5S29 CTKELD COMEDD INSEL) .COMIGEDD, 
6667 DUCNTALD Testes, 
4668 SCRA CNT TDD COLIN CNT CSOD), CBF RAXCNTINED) IBF MINCNTON29D, 
4669 BESTRLO, THIGOND, CAST TRESS) ESTRE TKESEDD ESTALT TRISTID, 
8670 WOTSTATX66019, COM TKG25 2 CDF TKC630), CISTR, TXI64 01, (YBAR,TX(6530, 
4671 S(BwOTS ,TKC 761), CBF OTS. T0772) (BOTA, TC 7B1P ISTENT TK C7GID, 
9672 GE EXSI ION COT TSE) CBE TxSt seer, 
“673 FAG TNSE SSE) CBWTE  TXS(3G)) COATT EKSC STII, 
16m SUSTFoete hd DCL Ped) STFA Ca? DCL ISIN, 
6h BINSTIFF NOC SSIP 
6% A, ABT TXSC 381) COED TSE 39) IBOTF TXSr4OI) 
6677 SL CAPRTIDULE.TH1070) 1 INSTAT NOISS)> 
5678 C. tOBOTEP .Dieeynd 
8678 
+680 
<6e1 Em INSTA 
—0e2 ¢ 
eo} ¢ ess YPE OF STRINGER ILSTee? 
Lal TMEQD = 0.6 
6605 TALQDi= 6.0 


2619 — 


Label] Pest Listia MUTOH LC CHART SET - SEP WINS AND EMPL ce AOE - 


caro NO eee CONTENTS ose 
5606 um: 3 
Sta? ets 10+ 0.6 
<6e8 OA < STH 
5689 Our = Iste 
8690 Gat > STMT 
468! BOTA © GMIN/BUT 
nes2 WF USTIFE - 13 810.510,500 
693 c 
4) ¢€ @eotNTECRAL | STRINGER??? 
6693 810 BHOIS > OFOTS 
n696 ¢€ 
6697 SEL OF IBOTA - BOTS? 412,420.417 
9698 B12 AF COLT - GePAKD 413,420,420 
8699 RI3 Bal - wa - 3.0 
9700 GTO SF ISTRLG - BRL EP 914.914 8200 
3701 RIS GHTE © CHPIS) OL 
4702 MAT © ASTR/EWTI 
573 UF COTE - GW 415,415,420 
87 81S IF AB TI ZONTI - OHOTS! SIL.4.5.820 
8703 816 B44 = wl 
5708 Ot > ONT! 
8707 Mar - mall 
_708 GOTTA > BAT/ONT 
8708 @0 10 811 
9710 c 
Ail) c eoBsT AVAILABLE TOO LARGE. INCREASE L-PLIES IF POSSIBLE? 
ene c ooCHECK O/T TOL ee 
e713 817 UF (BHOTS © OBOTEP - BOTA? 416,%20.420 
e718 18 Bae Mi ¢ 1.0 
a715 GHT + CNPI9) Oe 
Bit Balto ASIR/GUT 
am? OF IBOIN - BLT) 419,419,598 
a8 819 BOTA > BAT/OHT 
e719 If (BMOTS-BOTA) 917,420,420 
aro c 
872 c CHECK PLIES WHICH WERE SKIPPED OURING SEARCH FOR MAX. INERTIA 
avez c 
9723 “200 IF ¢ ILOEL .£O. § » GO TO 420 
ate (nee e ORL - 1 
a7e3 Bal- Mal ¢ 1.6 
a7 @0 10 8330 
=e? € 
3728 c 
a7 ¢ eeol-STR SECTION PROPLRTIIE. 
97H” 820 BW MAT 
Q73h wee. 
aT USIR © ABTRM/12.0°RN 
9733 YEAR « BY2.0 
aT eo 10 598 
aTs 
a7 ¢c 
aT37 c @CoINTEGRAL 2, 1, OR WAT STIFFENERS. CHECK FOR HATo*e 
a7 300 GW © BAIN 
s7™” Ow + HIN 
eho GOIr © BFHIN/BHT 
an 4F 0% - MSTIFF) 501,501,510 
ame $01 GBFOTS = SHOTS 
am ¢ 
uP € 
ams € 20eB/T AVAILABLE TOO LARGE. INCREASE L-PLIES IF POSSIBLE® 
ans ¢€ eoCoECK B/T TOL ee 
Oe? S10 IF (OTS ¢ OBOTEP - BOTA) 5100,516,515 
ene 5:00 Ma ° Be 1.8 
Aa OT o EPI9) me 
ame Go BOTS SUT 
wt OF - OTST 
ame BA © BT SISTINE TIFE Oe © SIFMEIIGTIFF DORE ¢ SIF NT MT) 
Bs 1F (A - ABTA? 511,512.996 
Lr) S10 Bal © AIR/BT 
os TREOD © (BAT -STFNTOBNT) 7 USTFMMINGTIO‘ 1 OMOTS¢SIFS CNSTIFE 
ams bomroTs: 
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Obl INe APUT LIST ite AUTO LOW CHAAT CET - SHEEP WING AND COPE POAT - 


CARO HO sess CONTENTS EU) 
ym? 1 ttkCOO GT ewli GO to 5100 
Pe He G4OTS © EWT 
ae If ¢ OW GT. BA) BHR PAC 
570 OF MIRA T - SIP MT OBHT - STPPINSTICF 1 BWI /SIFPENSTIFE 
aM 1F 4 BF eB B-BtAX-BFMAK ) 1000, 1000. 1005 
ae $000 if « OF GT. AFMAC > BF © BrrAx 
aw) OW CIB T - STENICENT - STFRFINSTIFE )oBF D/STFrtr. FIFE 
STN GO TO Sle 
NS $005 OF = Ernw 
NEG Bue BAX 
4%? Boe STFNFCHSTIFT 1 °OF ©  STENHINGTIFF F eBid 
ye BUT © (SORT CBes2 6S. PASTROSTENTD - BP / (2. ¢STF RTD 
89 Be = INTIBWT ER igee 
a7 BHT © GW ErP' 9) 
a7 Woo STRLO .GT. BH § GO TO 598 
4772 St2 IF (BMIN - BH) 513.513.5968 
a773 St3 BOTA = Bu/Gul 
aT (6 OF -OF 8 SIN .51% 598 
aA 
97% ¢ oom OK. CHECK EF ee 
a777 SIs IF (BOTA - BHOIS - OBOTEP) 515.516.5100 
aT $15 BOTF © BF /GHT 
am” If (BOIF - BFOTS - DBOTLP) 520.580.5100 
5700 S16 YOIF © BF /6HT 
yt tf (BOTF - BFOTS - DBOTEP? $80 ,560.5100 
_ve2 c 
8783 ¢ o°B/T AVAILARE AT BHIN Okee 
57 c POCHECK L-PLYCI-b) FOR LARGER GH/BF AT CONSTANT Ant Ace? 
a7 S20 Bol + Ba - 3.0 
5785 200 IF ¢ STRLO ~- GI 2 521 ,521,5800 
a7? S2t But) = NPIS) RL! 
788 Bali © ASIR/BATE 
8789 FREQ © CGeE TL - STFNTSBHTE ) 7¢ CSTFNKINSTIFF )*BHOTS © 
8790 ISTFNG (NSTIFF ) BF OTS) 
eI W ¢ VREOOI.GT. BwTI 1 =GO TO S600 
732 Gil =< BOTS*BwT! 
4733 1F ( Gat .LT. SHHIN ) GO TO 5800 
Ae a) 1F 6 ONL GE GHMAK D BHI © MeUX 
ss OF) COLT! ~ STENT CBHI? - STF NHINSTIFE ) CBHEI/STFNF ENSTIFF) 
578 (fF C OF CT. OFMIN t BFE © OFHIN 
9797 Gal (BRETT - STFNTOBHTI - STFNPUNSTIFE 2 OF LI/STFIettSTIFF 
ane IF ¢ HI LT GIN 2 GO TO 5800 
a ¢ 
9800 c COCHECK IF BWI OF) WITHIN MAX LIMLTSS* 
8801 1F (eax - OHI) 522.922. 526 
“802 S22 BNI + BAC 
560} OFL ACBATE - STENT COHEN ~ STFNHINSTIFF ) Bi i/SIFIE UNSTIFF) 
60 IF (BFL - BMAX) 527,523,5200 
8803 S23 6F COMI DWE - ETS - OBOTEP) Sov ,524,5800 
800s Soe IF (WF /BMTI - BFOTS - OBOFEP) 525.525.5800 
4007 c 
sos c COMMAK AND EFI. MOVE TO Fim LOCee 
4gos S25 HL BLT 
8O19 OT © Gxt! 
“O11 Bare mall 
“tie i» Bal 
6e1s wel 
aeis BOTA © Bu/BwT 
9015 OOIr = OF /eHT 
5eI6 00 10 580 
“a1? 
see ¢ eo LESS THAN MAX. CHECK BF se 
wie S260 1F (BFL - GFMAK) 527,.527.530 
6820 S27 IF (OHI /OHTI - BOTS - DSOTCP) S2B.S2+ 5800 
Nazi S20) IF (OTL BuTI - BFOTS - OBOTEP? S<2,525.5600 
sez2 S20 Ma > mar 
6623 OT = BAT) 
ay Oats wat) 
25 mul 
ace reri 
9a27 BOTA» SH/BuT 
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Bish 


CARD NO 


sece 


ePut Castres AUTOFLOW CHART SET - SaLEP Wits MO CPE WOE - 


ores CONTENTS 


BOF = OF Out 
@0 TO S20 
c 
€ eogr Al BF MAX. CHECK STATUS OF white 
330 Fl = OrmAx 
OME OCDRAT] = STPNT SGT - STFPE CHSTIFL OOF LF /STFMMINSTIFED 
UF (BME -BWAX? 527.523.5809 


CHECK PLIES GHICH MERE SAIPPED DURING STARCH FOR MAX. INER: + 


n 


S800 If ¢ ILOEL .€G. 1 + GO 10 580 
WOEL © NLOEL - 1 
Male MEI ¢ £8 
GO To S200 


€ Ce STRINGER SECTION PROPEATIES--COrtd:; FOR 2, 1, MATOre 
580 Al > BHT *BW 

Ae BATSIBF ¢ STFNT*BHT) 

YOAR © (STFNHINSTIFE 1 *Ad/2.0°ON © STENT INSTIFE Deas 81BWT/2.0 © Budd) 


17astTr 
€ 
USTR © STFMHINSTIFE )oaeee(BM/12.0°GH © (ON/2.0 - VBARE**2) © SIC NFE 
UNSTIFT Dear ¢ (ONT /12.0°RMT © (BH © GHT/2.0 - VBARDS*2) 
@0 10 S98 
o2°$tR MEA TOO SMALL. SET EXIT [Delece 
se 101 
€ S2°PRINT ON APRIIOINSTAT) © Leee 


50d IF (APRTIDINSTAT)) $999,5999,5990 

S990 WRITE (6,599) INSTAT NSTIFT ID. ASIA. STAL STMT, ISTA,GHOTS BF OTS 

SAB FORMAT (24HO = SSFACSTRO SUBR---STA.IS.10H §=ONSTIFF®.12.64 IDe.! 
12,@4 — ASTROTE.S.4H 99°, //6X,9F 13.5) 

‘WAIZ FORMAT (OX ,4F 12.5, 8X, 6F 12.5, /8X,6F 12.5, 14) 

c 
WRITE (6.5992 10H, OF ,1STR, VOAR.O .OWT BLT OL BAT! OAT! OWL BFE 
§ ,@OTA.GOTF ,TREQO ,TREQDI, ILOEL 


c 900 8OSUBROUTINE MEIGHZecere 
€  F°RSECTION WT PER INCH FOR ADV. COMP. M/RIB TORQUE -BOxees 


CooccuseescacereusccresreseseuseteccrcenesercoricesscueeneescesecsusseeS 


c 


SUBROUTINE WEIGH? ‘HEI NSTAT) We 1G2016 

c 

¢c ¢« © e ee © e ee # © © © # # © we @# «© 

€ 

€ SUBROUTINE TO CALCULATE THE MEIGHT OF A RIB-STRINGER TYPE WIND BOX 

¢ 

¢ 8# «© s ee e# © e# e # # © ee #@ # e «© @ 

c 

€ ez 102020 

€ 6 102030 
COMMON 118168) ME IG2ON® 

€ oa 102038 
DIMENS 10 012080) ,CTI20~S) .WO19001, va 1ezese 
NEW 19) COS) .CNCIS) CLES, v= 102081 
my, be jo2082 
PELCES(S? SHBCP 12) BITE (2> SCT a>, sa repess 
SAPATIONI21. sz l0r0e 
germ 33), 
O62, 08F STRING, 1 1) .CwTt 3B) + lorese 

€ oa 192070 
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PUT LIST 


eee 


eanaan 


107 


AUTOR (Oo CHARI SET - SHEEP 


CONTENTS 


CCUIVALEPKE (Odd) TAQSdGT aD LECT ALG Te PSE hd NOTED TBS t ye, 


PEERM els Depso5ee Eee) OC eiewny creer Cre2oesr, 


QUCLID TAL 3OOd  tCNTCED Teter he, 
BEC CNT CEI AHS CNT CODD Ce CHP OSN eR CNT ICED, 


SOS CODE .NDIS' 


+ SROOGE NDING 1D, (SPCOOE Os 3Ib, 


SICFRIB.O(4O00) , 1SWBECF UD) O64 2711  (OGRHO .DISENI, 
GUICPML A LCNTUSL ID CT CPRAE CNT C3290 CTCPMLR CHTC33I0, 


PISLCFSELS DELS 7099  CSHECP CED OG 2Sdd CES MSIL) O1et Orr, 
OUCH OF dd PFE SCV CT E204 79) APFESSP CTI2GNEDt, 
GLAD CUCI9SN IT ASTRIMGEL LEED Tele 7b 


ALCAFRTIDEDE  THLO7082 
OL CSPRCTD T2650) 


UNTEGER SPCOOE SF CODE . SRCODE 


00 100 161.35 
wihy © 6.0 
CONTINUE 


SeOEF FECTIVE WIDTHOes 


MOIS) © WOULLNSTATS © Cw 


oe eTHICKRESSES** 


BO 101 I-1.5 
ite Id - 2 
WODD © CELOTHD © 2.OCELUIMOLd © EL CIWe2) oENPI9D DIZ) 


CONTINUE 


96CCAPS FOR FS AND RS--F1T-BAR COVERS I #08 


M119) | MELD © STRINGEL.O.NSTATIZSIRINGIL, I NGTAT! 
MIZ0) © WIZ) © SIRING(2.9,.NSTATI/SIF: SNSTATD 
00 106 191.2 

WSS) = EDO B SEER SiH) 

OF (123) + SLEFSE31) 104.50", 105 

Mia) © SLCFSISt 

WEDetOD © Wi2S1+SHBCPL AD © WIS) CSHBCPLII/DI2) 
MEDEL2d © EZ PeBCHI2 © WES) SHOP C22 0021 


CONT IME 
SOF ILLER THICKNESS AT RIB=2/L-PLY THICKNESS ** 
FASTENER LENGIN = TISKIND © TIF ILLERD © TtRIB WEB) © 
* LEFS (HEAD. GRIP RETAINERS 190.625 IN. 0° 
W126) = ©. OCENPIODEL An) 
MC2T7d © &.OCENPISD CEL IHD 
WIS2) © WELD © WI2E172.0 © WIND © 6.625 
WAF3) © WIS? © WE27I/2.0 © WIND © 0.625 
SeCONVERT THICKNESSES TO WEIGHT ee? 
00 £07 191,85 


MUTD © WOES ENP IE) 
Wibe1O) © MEDetONoENPCeD 


CONTINUE 
PROCLSS COVERS* 
MCLd © Wet beweteD 
tac2n © wie) m1eD 
MIO) © PFFSCVOMIIO) 
MIT) © PRESC Vout Ie: 
OoSTRINGERS©® 
S015) © STRINGIL,O.NSTATICSPNINSTAT 1) CCNPIBS 
WEDF) © STRING(2.O,.NSTAT) OSPNINSTATECENPIOD 
MIZED © PFESSP*D(2)°STRINGLL OS NSTAT?/STRING(S OC .NSTAT OSPNINSTATS 
MEZ2) = PEFSSP D121 SIRINGI2, 9 .NSTATI /STRINGI2.0 .NSTAT? “SPNINSTAT) 
CoCTNTCAM. RIBS. SETUP RIB COL LENGTHere 
eTCST FOR CORRUD. OR MCP! 
Mi2S) © STRINGCE.2.NSTAT? 
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Wie, OL LE ORE MULE - 


osee 


Mul se 
se sr2c<3 
Mies 
EIS 


ME SSE Sit 


WEBI 57 
ME GE 53 
MEI 223 
BELG 92 


= 


cal 


OBI INPUT LIST Ite MUTCT LOM COURT SET - Sef OP WING AO OTA BID LE - 


CARD NO anes: Contents ose. 
8970 ¢ SOTTLLER AO ATT WISe* 
ag 109 00 4095 Let.2 
“972 WEb2IE © WERE EPO nt cS! th tL STAID 
4975 MELESBI © OCIS Tec Pe Mates rele NSTATS 
a9™ 1090 CONTINUE 
A} he) c 
59% DIP © 2. Oewcenensreg watats 
9977 WAS) © MSeM1ED NSTATE 252°C RIB 
97 MiGD © Bb 2S) 
a3 WIS) © PFESSPMI25) 
4980 If ¢SPCOOE - th ddd. barge 
598i 110 WIG) © MISSI“CERIDSCICPA SEC 11) ¢ DORMO? ¢ WIDI/CFRIB 
age2 MiNt © WEWI/CFRIB 
6903 TOE tated © HED © WE See 
_om c 
9965 ¢ TROT SPaRe 
5986 WI) © OW ePETSSP SEF IGE 
9987 WS) © WSS Elr ie 
a908 IF ASFCODE - 0) BIS. HN3. 112 
9989 UNS MIO) © HE OCICPMLEENCIL) © OBO) © WIBI/SHBCE OID 
4990 WIS) © HISD? 
9981 
ame ¢c PEAR SPARS 
4993 FES WELD © MROPFISSP S368 12) 
A gd WES) © BS) ADEE 2) 
95 UF CSRCODE - 3) UtS.0IS.1IY 
aos UES MiBt © MOC TCPRAROLIK C1? © OBRHOD © HILO) /SHECF (2) 
9097 WS) © M6SI/SBCK 62) 
ane ¢ 
099 ¢c CorMIMISC) FOR I-RIGS. 7S AND R/Seee 
$000 LIS WELGD © COROTIR - OLD bd eWMimd © ESO CID - DINPdetMEdD © WEED © Bet 
3001 UN200 © CSMMMSI!Sd - DEPdrecWeSd © WEL Sd © Beder? 
$062 
$003 € eoogmece 
S004 120 MEL © W121) © MI2ZSP © HIZB) © WK2G) © LIOE © WIDE) 
3005 Oo 123 101,17 
3008 (El = MEL © wetD 
$007 42) CONTINUE 
$008 € 
3009 ¢ 
S010 c 
9011 c SeoPRINT SECTION DATA ON APRTIDINSTAT) © ieee 
so12 190 IF CAPRTIO'NSTATOD 199.199.19% 
$013 194 WRITE (6 1SSINSTAT SIRING(S.10.NSTATS WEE 
S01% ¢ 
3015 195 FORMAT (20HO °° CE 1G SUBR -- STALES.GH N/SIR= 67.1.0 WTF IMe, 
$016 WO.4.SHeee eH MD 
3017 198 FORMAT 63K.12.20.5F 12.91 
3018 197 FORMAT C1249 EL 41-1500. 6.1,2x. 6.1 .2x,. 85. 0,2K.05.1,2x. 5.1) 
S018 ¢ 
3020 00 198 1,355.5 
3021 Keeney 
S022 WRITE (BL ISGIN, CHORD TeN mtd 
$023 198 CONTINUE 
30m WRITE CB ISTE CPD bo 85) 
3025 c 
198 RETURN 
027 oo 002100 
soze 
soze € 
$030 ¢ See eSUBROUTINE ABTIFF eceee 
set! C = #8 8 TORQUE -BOX STIFFNESS EVALUATION - ADV. COMP. ANAL YSIS*** 
soz ¢ 
$033 CevsceeccevececsscerscscvesesssececsessscegusscednsussensusurssceeeuETS 
sh ¢ 
om SUBROUTINE 45117 F sgtreois 
so € aSTT 06.76 
3037 c oooQMR 10 CVAUATE El AND GJ FOR COMPOSITE OLSIGN eee aB1F 0030 
20% c TOR PSP PLATE AK PHL AAD M/RIB STRAINERS aS TF OND 
so39 e 
30 c voetSFitsh © ACTIGS SUBR CONTROL IDe*s 
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SESE ELE: 


$100 
S101 
Stoe 
3103 
S10 
3103 
‘3106 
$107 
3108 
3108 
S110 
Stu 


PAVE Listing MUICEL OW CHART CET - SHEEP Bites CP ee AL 
cone CORTENTS. eeee 


*eOeC AC SLCT CEOM FGR FIAST ST CP OW Facil See 
eapese Ih SECT CEOM CAC ES 


nanaen 


4816 0050 
COPMOM #412060? 067000) .CO126007 ,NDI100) ,IWI9U0».“11204PD ASTFOOCO 
¢ aS TF 0070 
OUENSION CrP) ELS) ICL Sat, 
AUAUNO) TSF (60) .CPBI33) SPN 331, 
2TBHLEDD.TROCEDD BESTT) TERSULDD, 
ISLCFS&S) SOCPL2), 
@intiy, 
PSTRING(2 10. 8b) CNTE 3G) 
i¢ TF 0090 
DIPENSION GISTOCLE) CISTOC ES) GOEL) £ICOUIE, 
AGSTOCLI) ESTOC HED GCMDLLd) ECHDUTID, 
QOFEOUULTETSFOCLI) GICFOCELD ESCFOULLD, 
WOSFOCNLD ESFOCLTY GCFOtEt) ECFOCNI), 
SOISFLULID CPSFLONDD GUCFLATLD ECHL CIEE, 
SOSLUDIPESFLCVD) GCFLIATD CCFL ENED, 
SOGIMOCIED ELVEDCIL) GF DUS ED EVPOCLLD, 
POI SUIPDLEAVESTLID CVMFSCLED EMPSCIt, 
BOLRGIMI4Y) GIROD CHL) TENG II) Er 15.4) 
c ASTFOLIO 
EQUIVALENCE CENPCED OCLIG52) CELEN) TES 3OOtd OPEL CL Dd Tet), 
TUTACD) COCHOI DD, CTSF Cd) ,COMNT ID, 
QISPOCHD.TAbe3on)  CSPNC ED. TEL2C59D, 
JCTRICED TUSN27d  CTBOCLD, F6S53009  CTBFSCLD, TEIS39), CTARSCED, TO16SI0, 
WESLCFSCLD DILTON), ISHBCPOL? OCH239>, 
SICNTCRD, FCISeE dd ECT CNT (2200, 
GCUML TLL ID Chee, Teel C207, CTS, SECS ND Cte LED, 
TUICPRLUCNT (29) P CICPRAL .CNTE3OI), CICPNLF .CNTI3CID, 
GQUTICPRLR CNT( 3399, 
PLACID. 014307), CSTRINGIILE, 910167607 
A, UUPBND(24 dD 
c ASTFO130 
CQUIVALENCE (GISTOUL? COLLID CEPSTOCED COCL2I) CGSIDIT) ,COL2SDD, 
VCESTOURD .COUSWID, CGICDIT COE) ) HELCOCT) .COtS6I), 
26GCPO 14) .CD1G799  TECMDCL) COI eb), 
SIGAP DIL) .CO(89dt CEIMOCE) .COCIOOI), IGVEC IED COCETEDD, 
SLEVFOCED COL L22d2 IG ISTOLLD .COCE33ID CEUSFOUED COPINNID, 
SIGSFOCD) COLISSID, CESFOCED COC 1E60) (GUCFOLLD.COTNT7ND, 
GIEICFOCN) ,COL1EB)) , COCFOUL? COLLIS) KECFO. bd CDL280 Fy 
TIGISFLEDD COST ID  CCISFL ED) ADCS320d (GSFLEDE COLD sn, 
OHESFLUGD COC2ADd IG KELIDD COI2O509 HE ICEL OND COU 60d, 
BIGCFL US) COVCB7O}, MECHEL 1) .CO2SBI!, (DL RG RI) C01 3099) 
A. tGIROOI1E. T16681) 
BCTELGICOND, THE7BSND CENOC ED EF, THE 78709 
C.AGAS19) COCISTID TIME SEL) COL3GHId CW IO. Bfo5td? 
O,1GWS11) C0375) KEW STL) ,COLIB6)) 


AS1F0150 
€ ASIF 0160 
MEA ICL ASF 0170 
¢c STF O80 
¢€ 
€ PSeEVALUATE STIFFNESS OF DESIGN AT SI STATIONS *** 
¢ CALC AS REQO. STIEL/GJ/E/G) FOR SELECTED REF Tempe 
c . AO FOR QUIPUT FOR FLUTIER OPT AD FLEX LOADS® 
c SAVE CALC DATA IN BOTH ST AND COMPOSITE ARRAY LOC® 
c *eCLEAR COt1-400) --STIFFNESS DATA REGIONS? 
730 00 791 fet.s00 
coils © 0.0 
781) CONTINUE 


c 
B00 00 839 NSTAToI 11 


*°CLEAR TA AND ISF ARRAYS*** 
Bo e000 1 
Taila © 6.6 
@000 CORT INUE 
00 8001 f+1.60 
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Oss 


CaRD NO 


Sti2 
Sry 
Sits 
suis 
S16 
S117 
sus 
sus 
S120 
Stel 
sl22 
$i23 
. TT) 
$123 
3126 
$127 
$128 
$120 
$130 
sist 
sisz 
o133 
LIE) 
155 
s1% 
$137 
$138 
S.39 
S10 
Sis 
s1s2 
S143 
Sims 
S145 
S146 
8197 
5148 
Sino 
$150 
$15! 
S182 
$153 
sIn 
sis 
Si 
$157 
sise 
$158 
$160 
‘S161 
S162 
$163 
Sit 
$165 
S166 
5167 
si68 
S168 
sit 
si71 
s172 
$173 
s1% 
Bc) 
sit 
sin7 
sin 
sin 
$1¢0 
sist 
$182 


INPUT LISTING AUTO LOW CHART SET - SHECP WING AO CPPCHINAE MOOAE - 
aces CONTENTS ovee 
tly 2 06 
8001 CONTE 


e010 
els 
ole 


SSeMOVE LAMINATE DATA TO CL ARRAY AND CAC BASIC STiTieee 
DO eft f91.15 
CLCdd © TELEDNSTATE 
CONTINUE 


00 Bole tate 

Woe NOC3H] - NDI2) 

tf Ch + NDIGD) 8019,6010,8011 

N= LemDC3) ¢ NOCD 

TSF CLOL2) © CNPIQIOOL221EL IND © OCSVOELENOED © CLINO2IE 
CONTINUE 


*eTiCORE) FOR HC/PML. FOR PLATES AO SIR, 00.0°¢ 
TISFi2e) « TCPNMU 
TSH C23) = TCPNLL 
TSF (2a) © TCPNE 
TSF 125) = CPLR 


TSF (26) © CTSF CIO) + FSKL2200/70t2) 
TSF +27) © IISFLI9) © WSFI23b2/Died 
TSFC2Qb = CISFI201 © TSFE[]hD © TSF toe) © WS eSs07002) 


TSFU82) = TBOINSTAT? = TSFS26) - TSFI27) 
TSFUIG! © TOFSISTAT) - ISFt26) - TSFI27) 
TSF (17) © TORSINSTAT) - TSF(26) - TSF(27 
TSF 113) © TRHINSTAT) - TSFt28) 

TSF ete) © TSFUNSD 

TSF 015) © TSFCLS} 


#001-SPAR CAP OR STRIt R ARLA--TEST CONST O*® 
#10 © 2 FOR M/SPAR, 1 FOR HIBS 
TSFU10) © SPNINSTATI - O12) 
1F taClO ~- O60) 862,802,803 


on/RIB--SETUP STRINGER DATAS*? 

TSFi@h © DUD 

TSF (3) © STRINGCL.S,NSTATI/STRING( LI NSTATI 
TSF (4) = STRINGI2,9,NSTATI/STRING(L,1.NSTATI 
TSF IS) © STIRINGIS SY NSTATI/SIRICGEL DNSTATD 
ISF 1G) © STRING(2,4 NSTATI/STRINGEL IL NSTAI? 
TSF C7) © STRINGCL.S.NSTATI/STRINGC I, I LNSTAT! 
TSF 1B) © STRGt2 .S.NSTATI/SIRINGED,ENSTATI 
00 10 8 


*OA/SPAR--SETUP 1-SPAR CAPS** 
<7 = 0.0 FOR FOS 
SF IO) © TST CLOI/ETSF IO) ¢ OLLI) 
TSF 13) © CPOTSEIGISTSE L1G) /SPRINSTATI 
TSF tes © TSEC) 
ISIS) © WSFEV OATS yd eTSF 3) 
TSH (6) © TSF1e) 
TSHIPE © PVCS Die) 
TS (Bh © 1SF673 


eT-BaR COVERS® 
Tsris) = Tce) © TSF Is) 
TSF (2) © TSU) © TSF te? 


SOF SRS COVER OVERHANG AND CAP ARE AS* re 
OO 807 tet.2 
TSF Clow) © SLCFSIeTSFate 
TSF C1e36) © SLCFS(BdeTSr igs 
TH Cloud) © TSF CdoFerOel2sersrcpietsrcty 
TH Ebeu21 © TSF Ube BIO I]seTSr ir etSriit 


CAP Y-BAR © B/T° AREAL ICAP? 
WSF eleJOd © SLCHStereTsrity 
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PRE Ho Heere Cima uniter ent eeeC ceanne Nemes = : cae ONE AREER RM ATTTT 
aw rat Ae ae o% 


O61 DRO LISTING AUTO L OM CraRt SET. SHEEP WIS AO OTA HE 
CARO ND eoee CONTENTS, seee 
q 
316) WTS ibe 30s = SLCFSISI) 655,008,806 
sig COS TSFthe3o1 © SLEFSIY: 
$185 COG TMU 20) © TSH Po SO SMCR EDD «© TSF eov eS MORPH EI OIe! 
$166 FSF ALO3Os © WSK ebeJIeGaCHied © TE IQT eS IcPCAPDIe? 
3107 € 
$168 TSS) © TST Abe CBN/SHBCP ELS 
$189 VT Cpe © TH CLSCHDEL2D TSF sere Tee Wed 6 WSF IL 6281736.0 
S190 FoF cle3cr © O.EBTESF ASE 
Sig YORUGNE © TSFCLe3Or/SEACPI ed 
$192 TSF CLONBE © TSFEL SOND I2EOTSFINODeTSFG4Or ¢ TSFCN6301716.0 
5 $193 WSF (be38) © O EBTTS INO 
$ SI 807 CONTINUE 
‘ S15 ¢ 
S196 
$197 € *orREF ST STIFFNESS--LDTelese 
$198 009 Ire | 
$199 CALL ACE IGIUNSTAT, LOT. ELSTOSNSTAT) GJSTDINSTATD ESTOUNSTAT) GSTIDIN 
$200 STATO) 
| sot c 
S202 EICOUNSTATD © CISTOINSTATD 
} secs GCDINSTATD © GUSIDIRGTAT) 
S204 CCMOWHSTAT) © ESTOINSTAT! 
$205 GCHDINSTAT) © GSTOINDTAT? 
$206 
$207 c POSEY ACEIGY CONTROL 10 TSFULT) 10.1.0 FOR CLOM CALC SHIP 
S208 TSF cna © DED 
5209 
S210 ¢ **TEST FOR REQO DATA FOR FLUTIER OPTes 
S211 IF ITEIGIESD 820,620,810 
S212 e10 10 + 3 
$213 CALL ACEIGJINSTAT, IDT .CISFOUNSTAT) GJISFOINSTAT? ,ESFOINSTATE GSFOIN 
S214 USTATOD 
S215 € 
S216 EGCFOINSTATD = EISFOINSTATE 
S217 QUCFOINSTATI © GJSFOCNSTATY 
3218 ECFOINSTAT) © ESFOUNSTAT) 
S219 GCFOINSTAT) © GSFOINGTAT) 
S220 € 
S22t ¢ @eTEST FOR RLQO DATA FOR FLEX LOADS** 
S222 ¢ eeSET ACEIGS CONTROL ID TSFILI) TO 6.0 FOR GEOM CALC SKIP 
3223 820 IF HTEIGII%)) 630,830,821 
s2eN Get OTe 
S225 TSF Utd © OEE) 
S226 CALL ACEIGJINGTAT. IDE CISFLINSTAT) .GOJGFL UNSTAT) .CSFL (NSTAT? GSFLIN 
S227 USTATIN 
seco ¢ 
S229 ELCOLEMSTATI © CISFLINSTATD 
$230 GUCFLINSTAT) © GUSFLINSTAT) 
S23) ECFLINSTAT) © ESFLINGTATE 
Sele GCFLINGTATI © GSFLINGTATE 
$233 
a2 
Sem € CreTEST FOR FLUTTICR GJ REQMT FOR CALCere 
32 O30 OCRGUMINSTATI © 0.0 
$237 OLRGIMINSTATOIIF © 0.0 
$e38 OLAGIMINSTATOO2) © 0.0 
$239 OLRGIMINSTAT©I3) © 0.0 
3240 (F ¢Widd 031,639,631 
Sa41 031 tore? 
Seve CALL ACELOUINSTAT. IOT CIM SINSTAT) GIVE S(NSTAT) CW SINSTAT? OVP SIN 
3243 USTATOR 
Sees ERWOINSTATD © CIM SINSTAT) 
Se4s OMOINSTAT) © GIAFSINSTATE 
S246 CVPDINSTATE © EWSINSTAT) 
32407 OV DINSTAT) © GWSINSTATD 
Seve 
a) ¢ eeeTEST BASIC ST GF WITH REOO Gueee 
S250 1F (QIFDINSTAT) - GIROOINSTATID 032,639,039 
3251 € 
$252 iq *@S$12Z0 TO REOO FLUTTER GJ--INCRTASE JISTRUCT? BY SIEPS*ee 


9253 € *oSCTUP 10 FOR ORDER OF INCREASE FOR WEESe* 


2627 — 


Ob71Nl Nm 


CARO HO 


ATOR ChE Crs CET - SEP 


WING APE COPEL 


BELT Listen 

weee CONTENTS 
€ SELECTION CRETERIA © TntreGST TO TriCelSt MBs 
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SCTOMVE LD COs 19681! CTOMMITD COCISTSDP, CTOMTCND COCEDBOID, 
SUL TPVEL) TSLCEI]03 TUL TPMELD FSECUDDD SUL TPT CLD TSEC IMG, 


FUL IMVELE TSECCTE PD EU TNME SD TSR Celebs CULINTIES TSECCISSOD, 


WUVBUICND TSEC CISD) AVOUT CT) TSECEIOBI) CTEM LCE Ti MeShe, 
OC VBL) 166 7BIT CYB OC LD T16900), CGURODT I). 116687) 
A, OON1D T1579) 


EQUIVALENCE tNCASE ,ND1607), INOOW.NDI561),(IGHLNDIGIDD, 
QLACCVID OFedied, 
OINPACE DIGS) 


EQUIV FACE IW IO.OF 25101 COINIO.OF27I9 CTEIGICND Thee MBSE, 
PCDOU ADD .COCED MDOLCL9D COM2Z21 PD, CDOLSTID COedd, 

ZOO S11) COLES 1D? COMMS IT! COBOL, 

SIOBTOCID COtsd) MCISTDLE) COMs2ts  cGSTOLL COV2Ie. 
RIESTOCED COU) 1G KOLI? COrsSd) WENCDELt COMSeII, 

SIGCeD 4) COMI), ECHL) CO BID, 
SIGATSCLD COUSSI1) HEI SCED COM BGs (GWSI1) COLS7SID, 
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PRIACZ3! 
PRIADE 52 
PRIADZSI 
PRTADE 
PRIADZIS 
PRIADZ YE 
PRIADZS7 
ACP ad2 32 
PRIADENO 
ALPADENO 
ACPA 
ACPADRN2 
ALPALENS 
ACP ADS 
LPMOENS 
ALPALENG 
ACPADENT 
ACPADZENE 
ACPD 


PRTADZ90 
AP 05300 
ACP AD301 
aCPAD302 
aL PAh303 
ALP ALION 
ACP AD305 
ACP ADIOG 


eC 


hee 


ne ee ew 


EFCE YE Oey 5S He SH 


Of abr 


ee 


ietasiitiedethen 


Ine™ 


CAE F098 


e319 
tro 
Bw 
the 
evs 
GI 
es 
he 
63e7 
exe 
bey 
6330 
6331 
ee 
6333 
63 
6335 
6336 
6337 
63 
6339 
60 
om) 
62 
6h} 
CH 
6S 
66 
67 
one 
69 
6350 
035! 
6352 
6s) 
oT 
6H 
63% 
6357? 
ome 
oe 
6360 
6% 
bie 
6363 
Ch 
635 
e366 
67 
sus 
axe 
6370 
37 
esr 
6373 
GIN 
6345 
637% 
6377 
65" 
619 
630 
ele: 
6382 
6m 
CH 
15 
6306 
e387 
ewe 
6309 


renee ene - ne ame eee aE RNY aati 
Ire ot GaStite ASTOR CH CHeet Cbt - oop WIE? AO EWE BOAT 

eee CONTENTS bee 
PIC VESTED CO The Fe IG ROOD CDG EEN DEb Corton, MCP ANIOT 
BOW Os .COCHENI Orde COriecis, aL PAD396 
BGA OAH LOVaSSy CEM OVd ECOL bem te iG FOUN COU aL PADSOD 
MES OULD DULG HAG MCFOUG) Ott Pod LIC OLs COM be ant ACPADIIO 
BCH Ode COL19 389 CCF Ort COLeTON? ACPADSI 
CHOFALULN COCA EEE OIL GEE COP2ISN  ACEFL EDD COIN 2h amPAO2 
DiESFLLE COM Sah GFL END COI COPD HELCFL ETE COr2 Tet ACPAOSLE 
EL IGLTL CED COWATHN TE CEL CL) COE S31b ACP ADSIN 
6 AOCSTRUDD CT RSET AC IO Os 300d aCPAOUS 
G.SENACED DCL bere ac PAD3I6 
€ aC P4320 
¢€ ACPADHOO 
¢ COC SIGN SUATARY Feith -TVFL asee ACP AON IO 
c PAE | MLOCK Leh, THICHIESSES, aCPAN20 
c ° MOCK QL AMINATES. BLOCK 3+STAESHES® ACPADY 30 
c ALP ADNSO 
c orPRINT TITLE AMD CASE HEAD LIDS eee ALPADNSO 
300 NPALE © 1PACK * NOT) ALP ADNED 
WRITE 16, SHOINCASE ROE) Fel Bb AOR ORONO Ped O) AX od, 1G DOM ACPADN 70 
VIG) ,GPH2 ,DNZ ACPADNOO 
ACP ANDO 
ACP ADSOO 
310 FORMAL (CHI CASEIN, IK.BAIO, 14H SACPRIAS PAGE 14,755 KX EAIO, 724K GHACPALTIO 
1 OOH? 11.64 RG TILE Dono. 1.CH NZee6G 3207-75 3.7 70H ALP ADSLO 
2 = ©°-OLSIGN SUMTITY DATA--NCODIPS/IN, STRESSeKSI-9¢- s6ACPANS30 
HH SECTION LOAD AD THICHIESS OATA--STFINGTH OL SIGN! SALPADTAD 
=) ALP ADS | 
c ACP ADSSO 
Bit) FORMAT (HH LAMINATE PLY DATASS 1 ALP AOSEO 
Jttt FORMAT t42n *OLAMINATE PLY AO CORE DATASS) ACPANSES 
3i2 FORMAT (65H *eAPPLICD STRESS LEVELS AND CRITIC LOAD CACPADD70 
FONT ITION 1Oee) ACPADSEO 
¢ ALP ANTI 
33) FORMAT C1084 SECT NXZUC NXVLC NCU XC /S Q71S O/FS OFFS TSKs/ACPADG00 
WU TSkeek FU Eek TCU TIS BVSP ON/SP INES TH/RS) ACP AO601 
330 FORMAT (100M SECT NU NK/LE NYU NCS O/IS OPES O/RS ISK/ACPADEIO 
W TSKA ty) T-t TRIG U/RIB B/STR NOS TH/FS TH/RS) ACP AOS IL 
313) FORMAT (1004 SE." NK/UC NA/LE RXY/UR NCS Q7IS OFS O/RS TSK/ACPADEIS 
tu Tse T-U OT-kOFCORE RHOVE IW/FS TH/RS 1) ACPADGIG 
c ACP A069 
SI FORMAT 63X,12, 7.2.66 2.65 2.276 2.676 3.762.795. 1.76.3) ACPADEZO 
3t4O FORMAT (3K .12,8 7.2.76 2.65 2.2°6.2.96 3.276.255 1.6.3) ACP AOCZ 1 
Bist FORMAT 134,12, 8 7.2.76 2,75.2,.26.2.476 3.F7.4.76 2,276.3) ALP ADGZ2 
ACP A0629 
ACP ADE SO 
31S FORMAT (100H SECT LUC M/UC NUT OM. SLAC MAC NAC OMA LIS MV IACPADENO 
US NJIS LAS FS NES OME L/RS RS CRS OMAR) ALP ADE 3 
3150 FORMAT €110m SECT L/UC M/UC NVUC L/SU @M/U L/LO M/LC NAC L/SL OM/ACPADESO 
VW UIR AER NZIR LES ES NES OE LERS MURS NIRS OM/RI ALP ARES) 
3151 FORMAT CIOWH SECT L/UC M/C NAL OM/U LAC MAC NLC OA $c ACPADESS 
UT PENSE LAS BTS NTS OME OL RS ARS N/RS OM/R OE ACP ADCS 
€ ACP ADESD 
BiG FORMAT 03K.12.595 t) ACP NOEEC 
3160 FORMAT (3x,12,21F75 1) AC PADRE 
316) FORMAT 63K,12,0F5.1,F6.0.56.1.76.3.0F5. 09 ME PhS 
c 208 ADS 70 
BL? FORMAT (104M SECT FC/UC FS7UC CLCU CLSY FIAC FSAC CUCL CLACF A060 
sm FSs7Is GSIS FSTS OSS FS/RS CLSRS) ACPADESBI 
3170 FORMAT ¢110H SECT FCSKU FSSrU FCSTUCLCU CLSU) fil FSS ~FACPADESO 
UTS. CLEL CLSL =FSVIS CLSIS) FSS CLEFS «+ $/RS CLSAS) ACP ALES 
¢ ACP ALES 
BS FORMAT C3K 12.27 7.2.2°5.3, INF 7.2.85 6 SKF 7. 286.1 SKF 7.2.7 BG. PAC PAD ION 
4,30.F7.2,76.51 aCPAD70) 
3180 COPPA 630,12, 9 7.2.275.1. 6K. 7.2.9.1 IN F726. M7206. IACPAD TIO 
4,0N67 2,76 EF ACP IOTIY 
¢€ acPannie 
3i@ FORMAT 612K .46He-- -'*-UPPER COVER DATA-08- -- ©, 2M, SACPADIZO 
16M s-- -#¢-LOWLR COVR DATA-*¢- Sha} ACP ADT2 
3190 FORMAT 1108K SECT LAIS ASIA GSIR ISTR STIR OF YBAR (01 AL PADTE? 
atua ASIR BSTI© ISIR WSR OF YOR 110) UL Dd MCP Ah 723 


BIGL FORMAT 634.57 KOIKE. 3G 2.FE. IFS. 2.66 36S 2.20.66 Y.FEALPADTIN 
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Dalat thea anetiattaclind htt di hentia flea nade Adansonia eee cmasiiieieas we este A me ow. ms =. 2 = 


MITOF LOM CHART SET SHEL BIT MO ETRE BOWE - 


06 tes beut CIStins 
Caer ND oreo CONTENTS eres 
6390 1276 3.65 2 VES 2 a PAD I25 
6391 € MPD IZED 
61R ¢ PeMOCR 1 DATA--LOADSCAIPS/INCHO? ALP ADT39 
o393 320 DO 321 bet.tt APAORO 
83% TSStl) © OOK 122171000.6 ACP AOTSO 
63% TSSilests © GAC11922179000.0 ACP AB EO 
03% WSStbe22 = OOKIEe 53171000.0 aCPA0770 
6397 TSSthe S82 © OOISETs22071000.0 ACP AO 780 
esse FSS bey) © DOMSHI$33971000.0 APATITES 
63) TSS61055) = COFSC1633071000.0 acer 
6400 TSS11¢66) = CORS(1633171000.0 ACP ADOOO 
e01 321 CONTIN aCP A088 
02 ACPADRIS 
G03 ¢€ @erlEST CONST--M/RIB, MePaRe FDHO*? a Paleis 
ne WF 42.0 - AC10 3210, 3210, 80 AP 00820 
6905 3210 IF CACCVID - 2.01 3208. 3211,3°0 CP ALEZS 
06 4 CP aleze 
07 € COOMsSPAR PLATES AND HL /PtE eee SCP ALB29 
ex08 3200 WATE 16,3130 acPane 
6109 OO Bee et.al aCPALELO 
10 WRITE 1G SiG T TSSULD TSSHL odd TSSC L220, TSSE Le 33) FSSC I eued , TSSCACPADGSD 
wi 906559 ,1S$12 +662 COUT CL e121) DOLCH 16128) OOUC I LoL 32) OCLC E161 32) COM PADIED 
wie BUTE 110) COIS1 16925) COTSE 1654? CONSE E+ 165) COFSI E+ 1219 CORSE 1 oLACPADOTD 
wis wan ACPALATY 
t lh] 322) CONTINUE acpanees 
iS ¢ ACP ADO90 
16 ¢ COMLOCK 2--4 MHINATES** aCPADBO0 
wi? WRITE (6,309) ACP ADDO 
wis *RITE (6.315) acpsan20 
wis ©O 323 I-5,11 ACP ant 
20 WAIYE 66,3160) OUT TS +66) OUCH 1 ¢ 77! COUT 1 1¢ 88) .DOUC 1 1699) DOLCE SE AC PADIND 
21 166) ,OOLC 41677) ,OORC11+OB) COLE 11699) .OOIS1 1966 ,00IS!1 1°77) .ODIS1 1 +ACPADISO 
22 BOS) ,COFS1 1966) OOF SI 1b 677s .0OF S11 88) OOF S61 699) .DORS( 1 +66) ORS! 1+ ACPADREO 
23 377) .CORS 11 °OB) ,CORS1 1699) MCP 01 
tata 323) CONTINUE ACP AOOTO 
25 c ach 00800 
26 € BLOCK 3--STRESSES AND LOAD CONDITION 100° BLP IDF 
27 3239 WRITC 16.3120 ACPAIO00 
we OO 326 felt scPaiore 
wee TSSC1) = BOUT 11 0441/1000.0 acPaiozo 
m0 TSStbett) © OOUCE1655171000.0 aCPA1030 
eH TSSC1e220 © OOLC61084171000.0 MPALONS 
Wiz TSStheS30 © OMC11955171000.0 aC PAleso 
33 FSSI ewes © OOIS11¢559/1000.0 aCPAl 060 
an TSS1FeS5) © OOFS11055171000.8 MCPAIE70 
ws TSS¢$066) © CORST1955171000.6 aCPAl0eo 
as Ben CONTINUE acPaloso 
7 c ACP alles 
wm c acPastie 
wy WRITE 16,317) acPalize 
eo Oo 35 I-t.08 aCPALIIO 
Lael WRITE 66. 32811, VSSC1P,TSSt oh e DOUCET Y COUT EL esID SSIS 22), TSS¢LACPAL ING 
nd GeE3) OOLCHT) OOUCHNel Ld, TSSt loess DOISITeLhd ,TSS¢beSSt OOFS¢ loll) ACPALISO 
ow} STSSC 166) CORSt ELI) acPalié6o 
ow 325) CONTINUE OCPALI70 
Ons @0 10 600 ACPA 160 
ons ¢ MEP ALION 
47 ¢ wccrtnces acpaieee 
owe FIO WRITE (6.3130) mcPazie 
ont OO 331 fete MCPAL220 
50 RATE CG BiGt sl TSSeHD TSSCHol ld, TSSElekSd SSC hoTE) TSSElonyl, ISSCPAIZIO 
Si ECDOFS) TSSeh o€Gt OOM I boiR1) OOLCH1et2h) POUCH e132) OOLCI 161328 OMPAIAND 
ws2 BOISt he Led OOISt be 16S) COP Si be i2i) DONS Chote? acPairse 
53 331 CONTIN aCPAL2E8 
[ar ad ¢ MPALZIO 
ass € eel AMINATE SCORE DATAS#® aCPALPOO 
ws WMRETE 66. 31S10 acPaiene 
37 TSS(OBr = [915)716.8 Pal 308 
mse OO 332 Net.a aCPAi3iO 
on THSC1GO) © ODIS11+194171000.6 aCPaliee 
60 RITE 6H, 31600) COU 1666) COU Ef 6 77) SOULE 1 +08) COUT EOP) COL C HL ACPAL SIO 


2644 


97 


VEU GIST trey MTORR Ga Coan Cet - 


CONTENTS 


SEP 


WIG AO CHP NE 


seve 


WOEGP COCO 27 CR CUP La beaDhESe dT TST CNC Ts OFS TESTA PAL INO 


2OESCR LL? KE Sebo 27) OLE St BAD C26 Stdegar Clk hel) Clot 1677 A PALISO 


S.OORS6 eed) 6561050) AL PAL 360 

3320 CONT INUT aCPals70 
@ 10 3239 acPal3ao 

rd ach ar 390 
€ eeMsRIG CONST ECS AC PAINOO 
WO BRITE (6.31300 ALPAIeIO 
OO Set Tei.tt ACPAIS20 
WRITE CG BINT ASSEN) TSSe Pel db PSStFe2et TSSt Le T3d LSE bend  VSSACPAINIO 
PULSED TSSEN ESD COU EP 12bd COUCH e ted CO Che LI24 Ce Cheb 32) DAP ALSNO 
QDISCHL2h? COLSED 92s) OOSTRiNs DOISt1 0105) COP SEDO1ZE® CORSE let A PALSSO 

% ACPAINSS 

Wl CONTE aCPALSEO 
aL PAIN 70 

**BLOCK 2 LAMINATE Datare ACPAlSBO 

WRITE 16.3000 aCPAl490 
WRITE 16,3150) aCPatsoo 

DO S42 beg tt ACPAISIO 
PRATE 16.336092 OOK E16CSt OUT L 677) COUT ET EBd OOTTRE L655) DOC TACPAIL20 
$1699) COLCHT+651 ORC tLe 77) DOLCE LeEd) LUSIRE Le $65? COLC EA 59) COLACPAISSO 

BS 1G) COL 826772 DOSE PBS? OF Sel eeSe 054501677) OFS $*88) OOF ACPAISNO 
3S6 199) .DORS(1+C6) .OORS( 1677) CORSE 153) OURSI16990 ACPAIS50 

Wee CONTI ACP AlS6O 
€ ALPALSTO 
c eroSTRitKdR DATAre? acParsed 
MRIVE 16,3199 aCPAalS90 
WRITE (6.3190) ALP Ai600 

00 WS Ietti aCPAl610 
WRITE 16, 35191971 DOISI Le sE%) OOSTRE LOL) COSTALI) OOSERE be22) .COSTRACPALBCO 
UEbO33) COSTRE S44) DOSTRIL+L2) COSIRI 1977) COSTRED SCONE OCSIRI De 2A PAICIO 
241,0OSTRIE DY GOSIRILe E32) DISTRI PeI43) COSTRI 16154) OOSTRI LS 1 MG IALPAIOND 
S,COSIRE G6 1B7) COSTAL Ee 3192 ACPAIESO 

eS CONTINUE acPai660 
ACPAIG 70 

eoTIWLE FOR PAE 2. MOCK I, STRESSES AND LOAD CONDITION PAIGBO 

WPATE = MPACE ¢ NOLIE act 1690 
WRETE (6. SOM ASE ARENT 8208) MP ACE PROD OO) Pot > NOOR. GH. OG! AC PAL 7O/ 

1 1G) OPN Cea acPaizio 

c ACPA 720 
WRITE (6,312? achat 730 
WRITE 66,3170) ACPALTO 

OO Wh fetal acPal 0 
¥SS012 © OOUC1,644971000.0 ACPALTEO 
TSSt2) © OOUCL1 955171000 0 aCPALT7O 
T5503) © OOUCILe16517000.0 acpai 780 
TSSi4) = OOUCIS) ACPal 790 
TSS1S) © ORCIbetty acPaleod 
T$816) = OOLC( 1 o4%t71000.0 aCPAtelo 
WSSe7) © OOLCS$655174008.0 acPaie20o 
TSS1O) © OO C11+165173000.0 acPaisso 
T$$19) © OMCIID ACPALOND 
TSS110) = OOLCHLott? ACPALESO 
TSS101) © OO1St1955171000.0 acPai060 
TWSSC12) © DOISthoaas aCPAle7o 
TSSC13) © DOFSI1+95971000 0 acPained 
TSStIS) © OOFSiNeLtt ALP A890 
TSS015) > DOWS116551/1000 0 acPaisoo 
TSS1160 © CORSI Le ACPAISIO 
WRITE (6.358071 0 1SSiKI Kel acPais2o 

Bee CONTINUE aCPAlO30 
GO To 600 ALPALHO 
PATIO 

ACP 6026 

SOPROCESS TWIST OATA SEFOAL MOVE ee CP 18030 

00 00 6000 tei,15 ACP ABEND 
TSSU1) = (OOM EH 12d) © DOU IL iN3 1 OOUCEbel2t aC P16030 
TSSCPOTTD © OC Cade t2dd © OOLCKLotasrr OR Citei2id aC P6060 
WSScleeed © COOKSULoI2IF © OOFSt Lees s700FSclot2an ALP ABO 70 
FSSCL633) © ADORSIT 122) © DORSID e131 D/CORS ]et2i> ACP rE 080 
6000 CONTINUE ACP AB09C 
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rerras. 5 


np 


O67 1N/ HUT LISTING AUTUL Ce CMT ECT = SREP BIG AD CPLA BAT - 
C20 MO ones cantnts ene: 
652 CP 5099 
6533 ¢ SeeTE St FOR OW PPOt 1M FAR AO FE-t1ece MP MCDs 
653s IF aOetr = ACIOD 66).G010.€618 aL? 06100 
6535 c &PA8105 
e536 c COOP Ade 2 WADING ee ALP AS 109 
6537 GO NPAGL © WAGE © HOLT MCP ABLIO 
536 WRITE 1G. GENIC ASE AACE D Ded 8) PAE ROLY Let OF 220M, 1Ght DG ACPA 120 
6539 VIG? (eri? Ord a P2630 
Hd € ALP ABI 39 
6%! **SETUP COUL-4O0! FF RCD NO-e ALP ABING 
tH2 BO10 CAL READMS 11,C081) 400.40) ACP ABASO 
63 AC PAEIEO 
OH ACP ABI 70 
CAS BRITE 16, 6021TL1GI0I) ACP A6180 
66 G02 FORMAT (60 -OS-BASIC STIFTNESS SUUERY AT.F7.1 12M CLCREACI/ 5190 
6x7 UES-9e-9 MP 1E200 
OWE 6O3 FORMAT 191H0 TOO-FLUTICR AUAL YSIS STIFFIZSS CLERURY ATF 7. ACPAEZIO 
69 UL, 12H OCGREES-¢*-) ALP AB220 
6550 GOv FORMA! 16GHO -SO-STIFFIESS SUPRARY FOR FLUTICAR OPTIMIZATIOAPALZ30 
6551 1M ANALYSIS AT.) 2. 1.12H DEUEES-**-) ALP AEL60 
652 605 FORMAT (6240 -9*-StiTPiESS SUMMARY FOR FLEXIECE LOADS ANA ACPABCSO 
6553 UYSIS AT.F7.1,. 020 DEGREES-*¢-) ACP ABLEO 
tra) c ACP IB270 
6555 606 FORMAT (108H SECT Gu-SI) £i-ST)  G-ST C-S! GJvE! GI-CMP ACPAB200 
656 DEt-CeP G-CHP OE-CPP GI/EL | ATSAU RISK. RIWS KITS) ALP AE290 
G7 GOP FORMAT (4K, 12.2F6.3.F 7.3.66 3.66 3.2k.278 3.6 7.3.F8.3.FE.3.20 476 ACPAB3OO 
one 30 ACP 16310 
6559 € ALP 06320 
660 6068 FORMAT (I0NH SECT 6 GU-W GIST £1-St G-ST E-ST GEL A PAGI30 
66! 1 ROS GJ-COP EI-COP G-CHP OE -CHP GU/EI ROUT > ACPAEYO 
6562 GOD FORMAT (4xX,12.F8 3.2X.270.3,F7. 3.68. 3,26. 3,2.2°8. 3.67. 3.98.3. 2 6ACP BIO 
656? o.3s ACP 1B 360 
6564 ¢ ACP 06370 
6565 610 FORMAT (@2H SECT GU-ST EI-ST G-ST €-ST GIA! GI-CHP  ACPAGISO 
6556 1CR-CHP O-CrP OE -CHP GU/TI) ACP B39 
6567 Gil FORMAT (4X. 12,2°8 3.F7.3,F0.3.F6. 3.2% .2°8.3.F7.3,.78. 3.76.3) ALP AENOO 
oe c ACP ACD 
6569 Gl2 FORMAT (GHI CASE IN. IX CAO ISM PACPRIAS PAGE I, 709K ,GALO, (24K GHACPABN IO 
6970 2 NO0i= 11,6 1GH!11,.6H DGH9fS.1.6H N2<0F6.3.74/-45.3,//86H ACP ABANT 
6571 @ + 0¢-TORQUE BOK STIFFNESS SUTURIES--1GJ,E Jet lOt-9?  (GACPAGYI2 
“572 3.C2¢t01-6)-¢8- 2 ACP MAI 
“nm c ACP MEAD 
On ¢c GSE 1K10-9.1G. EIXI0-8 9% ACPAENZO 
55 620 00 G2i 191,81 ACP RENO 
“wn GVSIDCL) © GISTOI11/1000000000.0 ALP IEA 
“rn CISTOVE) © E1STOIE171000000009.0 ALP AENSD 
6578 OSTO(T) © GSTOt1971000000.6 ACP AED 
“on ESTOCI) © ES10¢8871000000.0 ALPEN TO 
6580 TSS(te4es © GICOI11/1000000009.0 ACP ENED 
het TSS¢1095) © CICOLI171000000000.0 ALP ANDO 
6562 FSS 166) © GCHDI19/5000000.0 ACP IBS00 
6se3 TSSC1e77) © CCHDL1271000000 0 ACP ABS1O 
A cae] TREES © GISTOVID/ENSTON ND ACP ABS20 
ones TRC Lest) © TSStheusrrTSsr ess) ACPIEA3O 
6506 62) CONTINUE ACP IBD 
6567 ¢ ACP IBSSO 
6568 c eePRINT BLOCK Iee ACP BED 
wee WRITE 16.606) ACP AES TO 
6590 00 G22 Tei, 1h ACP 16580 
6st! WRITE (6.60711 GISTOCI) CISTOUE) .GSTOCL? CS TOC ED, TREE) TSSiLouu) , TACPABSSO 
oss2 1SSE 1655) ,TSS6 1066), TSS Le 77) TRELOTED  TSSUIE PSSULOTED ,TSSibe22), TACPAB ION 
os) @SSi besa ACP AB710 
om S22 CONTINE aC 18 720 
On ACP ATIO 
one @2eBLOCK 2--FLUTIER STIFFNESS. CHECK FOR +INTore MPABM 
97 IF (VIO) 626.623.6245 SCP 18 FO 
ow G23 WRITE 16,6230) ACP AB 760 
en S230 FORMAT (520C -NO FLUTTER STIFFNESS PENALTICS-#¢°- ) ACPRE7ES 
600 00 If 630 ACP ABTP0 
$601 ¢ aC P26 780 
e602 #8 PROCTSS FLUTIC R ANALYSIS DATA FOR PRINTSS® ACPAE TIO 
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067187 


CARD ND 


TNeUT LISTING 


€ 


te 


626 


630 
631 


e32 


033 


Lea) 


CON 


OO CS tet tt 

GATSTDD © GAFSE1171000000000 0 
C1 Site © ClwStlr7ioo0000000 0 
GWSth) © GWS$11571000000 0 
CwSile = Twsetts1000000 oO 

TSS louee © GADII171000000000 6 
19540055) © CIWO11971009000000 0 
TSStheEG1 © GWD6I+71000000 O 
TSS1be77) © CW O1s171000900.0 
1S$+1-@8) © G.RAD11171000000000.0 
TRULD © GISEEIEI WS 
TREDONED © TSStPoMN IZ ESSIS 
TSStL) © TSSt1eBRr/GIVESIED 
TSSCDeLds © ISSTEeBOI/TSSthenye 
CONTINUE 


SS 


WRIVE 16,603 TEIGI2) 
WRITE (6.600) 
OO 626 Iet,th 
BRITE :6.609)!. 15501 


AJTOFLOW CHART SEI - 


TENTS, 


SMe 


ern 


PET OR ATE HON REE ENT 


bit 2 CPC RE + 


oece 


a aeRO 
aL PERIOD 
RP MEEZD 
ALP AEBI0 
OILINO 
ALF ERO 
ACP 16860 
SCP AESTO 
RP AECEO 
ACP AE LS0 
aL PIE 900 
ACP AES10 
ACP 1ES20 
ACP 16930 
MCP AEH O 
MPALASO 
aCP1E%O 
SCP ESO 
ALP AEDI0 
MCP HEF90 


Or GIST FE IVES(1) GMPSCED GSCI) TREE) TACFATO0D 


USSULD TSSt downs TSSC 15S) TSS h 966) TSSC1e779 TRELOT ED. TSSCLel td) =ACPAIOIO 


CONTINUE 


ALPAT020 
aCPATO3O 


O9CPALE 3--FLUTTER OPT/FLEX LOADS STIFFNESS SUPMARIESS**® = ACPATONO 


**TEST FOR PRINTOS 
1F «OtNID? 240,240,631 
NP AGE © WPAGE © NDII) 
WRITE (6 St2INCASE CRILD Tot 
1 0Get) DPR ON 


*eTEST FOR FLUTTER OPT OUTPUT--iUel OR See 


IF (OINIO - 0121) 632,635,632 
WRITE (6, 6000TEIGI0 3? 


SOPROCESS DATA FOR PRINT 
OO 633 bel.tt 
TSS¢th © GaFO1Id71000000000.0 
TSSI bolted © E1SFOss971000000000.0 
TSS( 1922) © GSFOL1171000000.0 
TSSthe33) = CSFO11971000000.0 
TSSE heed © BUCFOIT171000000000.0 
TS$11¢95) © CICFOI1)/1000000000.0 
TSS¢ 1006) © GCFOLI171000000.0 
TSS0b077) © ECFO11)/1000000.0 
TRIED © TSS PI/TSSEdetty 
TALL) © TSSE Loner sTSStloS5) 
CONT IME 


WRITE (6.616) 
00 6 fel,1) 


oe 


ACP A7050 
ACP ATICO 
aCPATOMD 


NPAGE ERT 168), Del .@) OOM, [Ga Oat: AS PAT0GO 


aCPA7090 
AaCPATIOO 
OCPATIID 
MP ATI2Z0 
ACPATI30 
ACPATING 
ACPATISO 
ACPATICO 
aCPAT70 
ACPATI00 
aCPATIOO 
aCPAaT200 
ACP ATZ10 
ACPATZ20 
SCPATZ30 
MP AIENO 
MP ATESO 
ACPATEBO 
ACPATZ70 
MP ATeO0 
aCPAT290 
acPaT73oo 


OMITE CG .SULIT SECS) FSSTTOnd dD TSSEL 22) TSSE be SSD TAIL TSSC Sony ACPATIIO 
Ad, TSSC1e55) TSS 1066) TSS e771 TRiled sy 


CONT IME 


eeeTEST FOR FLEX LOADS OUTFUT--[0=| OR aero 


If ¢DIM1O - O12)) 636,636,240 
WRITE (6 BOSITEIGULe) 


<PROCESS DATA FOR PRINT 
OO 637 S-1.01 
TSSC1P © GISFL11971000000000.0 
TSSClotid © EISFL Ghd 71000000000 .6 
TSSELe22) = GSFL119/1000000.0 
TSS1S033) © ESFLE1171000000.0 
TSStfewer © GICFLI9371000000000.0 
TSESUNCSS) © EICFLEL17°000000000 0 
TSSEfeGS) = OCFLI1171000000.0 
WSS61977) © CCFLE1179000000.6 
TRACED © TSSCLEeVSSisedyy 
TRITOLES © TSSC Lowers TSS 1655) 
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aCPATI20 
SPATS 30 
OCPATHO 
MPATISO 
PATO 
MPATING 
aCPATIO 
SCP ATIVO 
ACPA 00 
aramid 
ALPAM20 
aPAarndo 
SPAPAD 
aCPARSO 
MP AMES 
PARI 
aLPAMBO 
PAM 
acParsce 


> 


. 


C6167 veut Listing MUTCE Cad CHART SET ~ Seth BINS AO OPC OLE - 


caro 1 ooee Coanents sees 
an 637 CONTE ACPATSIO 
ans € ACPATS20 
tn WRITE (6.6109 MPA 
“7 OO 639 Iet.tt ALPATAO 
an WRITE 16 6LE9T TSSHEE TSSE ROE EDTSSEPe229 , ISSELOSS) TREND SSE TL eWWACPATIEO 
“en O), TSStheSS? TSTeLeGSs 15501077), TRedeat? acPaTSO 
e650 63 CONTIN aCPATS70 
oat c ACPATEBO 
c PRTAIN7O 

6os5 c PRTAINBO 
an c PRINT PAR 4/S--MT OO MIZIN DeBURY. PRTAINSO 
oes 20 MPALT © 1PHE © 1901) PRIAISOO 
BRITO (6, 26020 ASE URED BOE BP IO ACE MOC, 1G OCt4 IGM) CE NZ .C°RAZPRIAISCS 

2400 FORMAT 1 CASEIN. EX BALOL INH *ACPRIAS PAGE 14,7004, CH MORO 1 6PRIAISOG 

WH IGMOEE OM COND 1 Get N*eh6 3,20/-75. 3) pRIAISO7 

c PRTAISOS 

MITE (6,200) PRIAISIO 

c PRIAISID 

Mi FORMAT (SoH <0 -PMEL MIGHT SUSVAY. LES/SIDL-**-/1GPRIAIS2O 

19H PREL sn 1-60% ec. v.€. MISC. CELPRTAISIO 

cay Pe at-Rip c-oicls PRIAISAO 

c PRIAISNS 

IF CPE ~ DLTDE 210.210.2422 PRIAISSO 

2s10 155678) © beVIO/OI2) PRIAISSI 

TSS679) © WtiS0s°TS5 78) PRIAISS2 

TSS1G9) © Totter eisse7a PRIAISSS 

00 Ait It.5 PRIAISSA 

TSSt1+BO) © THT CE eSeaeTSst 7a PRIAISSS 

eit CONT DAE PRIAISS 

c PRTAISE0 

c **PRINT 10 PM WTS PLUS (NCD AO CED** PRIAIS7O 

oul DATA IM ICth-3400" PRIAISTS 

PHP ALTE 1G, 2550 CTCL ASS) tod 6) S50 79) TOON) TC EISE CTSSEE +89) PRIAISOO 

Hf=1,$) ,OCt3),TSS1698 PRIAISCL 

c PRTAISSO 

2H3 FORMAT CM TOTAL 12.2.6 11.2,.2F10.2.F9.2.F 10.2.6 11 .2.4X.2F 10.2, /7PRTAISIO 

1H GOLF 12.2.F01.2,2710.2.F9. 2,610.2, 15x,6 10.2) PRIAISSI 

Bee FORMAT 06K 12 18 F12.2.F18.2.2F10.2.F9.2.F10.29 PRTAIE00 

aS FORMAT Om OBD.F 12.2.6 11.2,2710.2.F9.2.F10.2.F11.2) PRIAIGIO 

PRIAIGZO 

c “PMS 1-10. OATA IM TCLI42-201) G/ELOCK, RI-TIPS PRIAIG30 

00 26 Hl. 10 PRIAIESO 

& = Normt6) PRIA C40 

meet - MOIS PRIAIEEO 

WRITE (6. Sern CTC ede tens eK Le PRTAIE70 

26 CONTINE PRIAIEEO 

PRTAIESO 

0D PL’ PRTAI TOO 

WRITE 1G 2eSe CTT. Pete) Td 5) 0013) THT ESO PRIAI7IO 

c PRTAI720 

PRTAI 730 

eoulsin OATAS® PRIAIAO 

250 WRITE 16,2517 PRTAI750 

251 FoR (40H *-BEIGHT INEM SUBURY-**-/04H SECT. PRIAI7EO 

1 Tora T-80x uc. Te. MIS. DELIA W COM. PRIAIT70 

ics 4) PRIAI TBO 

c PRTALI90 

PSS FORMAT 06K .12, 0712.97 1810. © 29.4.7 10.4 Fn PRtaie00 

PRIAIBIO 

DATA im TCh2Z20-340) 11 SETS OF TE TEMS, RT-TIPCe PRTAIBZ0 

€ TRING FIRST 7 LITERS OF LACH SETS PRIAIGIO 

OO 253 Nett PRIAIOVC 

w+ erOedEs ~ MOLIOF PRTaisso 

t*k + mDIG PRIAIBE0 

MALIC (6 252M ATCO be20Gs tem Oa prtaie70 

257) CONTINUE PRIAIGSO 

c PRTAIBIO 

¢c PRTAI9OO 

c POL SIGH LOADS SUMMARY * ++ PRIAISIO 

c MALE FOSITIME AO PEGATIME LOADS MO 1-6 TOTA Cue PRIAIS20 

WTC (6.2608 PRTAISIO 
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678) 
6781 


673 


677 


I ST Re 


HEVT LISTENS ATOR LC CH ESET - feeae Bis KO Fetter BOLE - 
sees COTENTS vee 
261 FORMAT Ino -e-CESIST LCA S SSM 88 FEE SECT PRIALEHO 

2 ovsUte ome Te eTute “WEL mate TEA TALAD 

QU) WE -Gh PEGs Weats-Go 7 PRTAIED 

¢ PRTAIS72 
262 FORMAT 14K, 12.F Ib” UF is EFI ber te LAO. erate FRIALGS) 
c PRTAISI9 
€ *ULT LOADS STORED TIP-FO2T. 1-G OW LOA SIT RT Tire PAT AE LSD 
00 263 Nett PRTAZOIO 

Ke NDII2) - 6 PRIALOLO 

BREVE CG. COQ UT VOR UL TPM PROD UR TD UF Dest UL INT OF RTAL OO 

WK) TOWVING 10eeins FD aT ced PRT AL INO 

263 CUTIE PRTAOLSD 
c PRTALIEO 
¢ PRIACSTO 
c eeePAK S/C--SECHIGH CASIC' Y-BAR DATASS® PRI ALES 
292 WAL = WAL ¢ WOULD PRTACEII 
WRITE (6. 29GINCACE SUR CDD Pet 88 SORE AROD CBD 19082 MI PRIA TO 

HOWE DPE Ce PRI ACEO! 

¢ PRTACLOD 


29 FORMAT POHL CASE EW EX. GAID UGH CFC FATAS PACE NS FISK BALD, //20% EFRTAZBIO 
UH NODHS 11 6H IGN TD .EH DOFO LEM NZeeFG S.2Hs-FS Sf sash FRTACGII 


2 7 0e-SECTION OC SIGN Y-BAR CATA-¢¢- 2 PRIACEI2 

c PRIACCID 
WALTE 66,2570) PRTACCZO 

2920 FORMAT I4SHO STA YRUID) YBUIAD YRLIDI YELtAD TE-R/IN D PRIACE2I 
2321 FORMAT 11H 3X,12.9°8.4,F9 4) PRIACE2S 
€ PRIAZELD 
Od 2922 Te1.tt PRIALESO 
Kenptla)-1 PRTAZEAD 
WRITE bo. 292007, YBUOCK)  YBULIK) YE OUK) YER DIK) TEPID PRT ACOSO 

2902 CONTINUE PRIACEEO 
PRTAZE7O 

PRTAPEBD 

c COTOT AL WT SUPSURY--THTC9 59), 0145-1590e PRIACEIO 
WRITE (6,293) PRTAZTOO 

293 FORMAT 11HO, 48H 7©e-ROOT SECTION WEIGHT SUtUAY 9¢-/ PRIAZTIO 
16H = THT) PRIAZTZO 

c PRIAZTIO 
2H FORMAT 13K,12,0F 11.49 PRTAZMO 
275 FORMAT (3K, 52.0084) PRIAZTHO 
PRIALTED 

ROOT DATAS PRIAZTIO 

00 297 N#I,.%.9 PRTALGOO 
keno NDIO) PRTACBIO 
WRITE (6 CRIN CTT OR) Pend) PR1A2820 

297) CONTINUE PRIAZBIO 
ne 35 PRIAZEO 

k= 185 PRT ACEO 
BRITE 16 295IN, CTT E Fo Sed 2015) MATT CE seed bes 5) PRTAZGEO 

¢ PRIAZB7O 
¢ PRTAZIIO 
€ eeeeICST FOR GHi2) FOR CLOT IRY PRINTSOr? PRTAZINO 
¢ *StEST FOR ZERO Githt AO GWi2) FOR GEOMETRY PRINT©*® =6PRTIAZINI 
270 IF ANDI2) - [Ged 2701 271.2702 PRTAZ1SO 
2701 IF (OGHIId) 2702,2702.299 PRTAZISS 
2702 IF (OGWt2)) 271.271.2959 PRtazis2 
¢ PRTAZISD 
27) 1F (NOM - OI21) 2720,299.299 PRTAZIEO 
€ PRTAZICD 
2720 WAGE = NPACE ¢ NOW)? PATAZITO 
CRITE (B.272L CASE IRETI, Lot Ot PAE cM Od, bet OP PRTAZITE 

¢ PRIa2iv2 
272) FORMAT (6H1 CASE 3% IK .BAIOLINM SACPRIAS PAGE IN, /15X.8A102 PRTAZITS 
Riazi Te 

PRINT GEOPE TRY PRIAZICO 

272 WRITE 6G S7TESTSEC CL AG) TSEC 155) TSEC (ES? TSEC OG? TSEC IPRTAZISN 
109), 70900) YRUDCINS VR Dtits pRiIazz00 

273 FORMAT (4GH0 ~*s-SECTION CEOPETRY SUPPUMY-¢¢- = sIC2H PRT ACC IO 
4 Sect. YSTRE wot oave os ons €-ARO |= -PRTAZ220 

2 y-ou ve ro ROOT IO. 3.99 3.610. 2 APRIAZZIO 
Wwe PRTAZEND 
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Rares 


Vet Cistires ITEC CRT SET See Wis AD Ewe ROME 


eons COUTERTS esve 
© TCEMAT GOK I2LEM OF IO S.3F9 F610 Ferg ND PRIACLSO 
2» FORMAT 16H TIFCHIO SLO VIO B.e6G Wired PRI ACEO 
¢ PRIAZ2 70 
2% 00 277 Mee, 10.1 PRTAZCBO 
weNDIT21 N PRIACEIO 
BRIE AGS TSEC OD LES) TEL CIF Me TSEC td tS) UC PE RTA IOO 
1eF7) USEC eR oO) The 99), YEUDID.! SOLOCED PRIAZIIO 
27) COMTHAT PRTAZI20 
c PRTAZ330 
¢ PRIAOIHO 
2m BRITO 1G. 27HITSCO LEG) USEC UNS) TSE C156) 1S CO7Es TSEC IFRIAS ISO 
VE .TAd102 ,YBUOCLP ,YELOUte PRTAZ360 
€ PRTAZ370 
c PRIA? 360 
¢ PRTAIO00 
€ PRTAIIOO 
¢ ooEKI Tee PRTASIIO 
299) RETURN PRIAQIST 
cto PRIAZI99 
Ceeeeeeeveeaeserectaeee VSUTTESHRAATOSTERSAOTTHTSCKeREHETeC TICE CCR TEEE 
c 
¢ eoeeerURaC TIC’ Mureeee 
¢ SOC VALUATION OF NO. OF N-PLIES FOR GIVER L ADM PLIESSS? 
¢c 
CuceececveruccacresuereseseeesesecusacuseuruseotyS 
c 
FUNCTION ONCIL th) FURONDIO 
€ 
C FUNCTION TO CALCULATE MUGLER OF 90 CEGREE PLILS FOR A LAMINATE 
c MUMOER OF PLIES IS ARBITRATEO AT CB PER CERT 
c 
common tisica) Fuoo20 
c FUNINO 30 
DIMENSION EL C1) CHT Eser FUNXNONO 
¢ FLRONOSO 
EQUIVALENCE CELGED,TER3OO? ACNTULDTOISMD, FUNKNOGO 
BICOLONTENS SD, 1CB CHTI23I) FUNNOES 
¢ FU5x5070 
WN © INTCVEL AIL © 2.0°CL em ece + CS) FURONDEO 
RETURN FUNNND90 
FuON1 00 
secee 
¢ 
c ee eGUBROUTINE WICAL rere 
c SSeSECTION/PAEL WEICHT EVALUATIONS ¢* 
c 


CeeveueavececucveSPR Pe EeESTTAS OUTS DETUDTCHESUUTTOENOTOROSCRUNT TERS TERD 


c 
SUBROUTINE WICAL 
Cc 
c eee eeSAME AS SUBROUTINE WIC AR IN OVERLAY 110 010ere" 
c 
¢ S°°SUBROUTINE WICAL CALLS RTAIB. BHOJT AND WIPINGS © 
CALL RIRIB 
CAL BHT 
CALL WTPIN 
¢ 
RETURN 
[ND 
c 
c “SUBROUTINE GHOUTerece 
€ 9 e°PULKHEAD AND JOINT WEIGHT EVALUATIONS ¢* 
c 
€ 
SABROUTINE OUT 
eereeSAd AS SUBROUTINE BHOJT IN OVERLAY C10.01erere 
c 


RETURN 
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Lehre) 


CARD NO 


680? 
e098 


6057 


(Pvt LIST ise MITOPL Oe CHART SET - SEER Mite A CPS CE ONE 
eese CORTENIS eeve 
NO 
€ 
c eeeeeQOROUTH RIRIBSS#¢* 
C  #*OROOT RIB AD GEAR TIE WEIGHT Cvuationses 
c 
c 
SUGROUTINE RIRIB 
c 
c eeeeeSNE AS SUBROUTITE RIRIG 1M OVRLAY (1D. O1eeree 
RETURN 
ND 
CoeseuscseusesssversccussreuseCSOrtePOCSOCRCCHTOLORHET TT TENTOEDESTLETOSD 
ig 
¢ eeoeeSUBROUIIIE HIPING Seer 
C ##*SECTION WEIGHT PER [tit EV UATIONS SC? 
¢ 


CosescaesaeeuvasceCOCuPeeESSCOSETCTTTSESSESESERT ODOT OCUSSCSRETOCCUUEES 


c 
SUBROUTINE WIPIN 


¢€ eeeeeSAE AS SUGROUTING WIPIN IN OVCRLAY 110,01eeeee 


AC TURN 

eno 
¢ eee erSUBROUT ITE ONBAseree 
C 9 # DE ADMEIGHT AKO COUPLE ‘Art ADJUSTPENT FOR PASS t]ieee 
c 


CoacverevecneroceveccscesseueeccccvevscusvcuseSCCRuevenuTeruSSuSUNUSENGS 


¢ 
SUBROUTINE DHYBA 


eresGE AS SUBROUTINE ONYBA IN OVERLAY (9.01e8eee 


#2 °SUBROUTING OHYBA CALLS OE ADHSS? 


nanan 


¢ 

c ee eeSUBROUTINE DEADHC sees 

C = ##*TOROUE-BOX INERTIA LOAD EVALUATIONS *? 
€ 


suecereess 


SUBROUTINE OF ADM 


eeneeSoE AS SUBROUTINE DEAD IN OVERLAY 19,0) eeeee 


RETURN 

xo 
Cosesrscosecescvescesessscssugseuscreceucuuescecesceresnavssceuesecsored 
c 
c 96¢ 0 eSUBROUTINE CSECUseere 
C = SPCCENTER-SECTION bE IGHT EVALUATIONS ©® 
c 
Couscucceceneccccccevuvecsusucvttesssveenrsvoveucucoressrecccursresnasese 
4 

SUBROUTINE CSECH 
€ cere eSME AS SUBROUTIPE CSECH IN OMALAY (9.01 


¢ oe 08 SUBROUTINE PIVOT seere 
C  S°PEVOT STRUCTURE SYNTHESIS AD LEIGHT EVALUATICNSS® 
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OBIS 


CARD HO 


eee 
6H 


est 


6963 


6965 


6993 


FUE LIstins BT CERT SET + EER MING AO CIRCE 


eoee 


Coucerceevecss 
¢ 
SUBROUTINE PIVOT 


€ 
< Sa aS SUBROUTINE PIeey 1s CER ar 19.0) 
c 
€ SeeSUBROUTINE PINOT CALS TEE AO TiLese 
CAL TEE 
CAL TEL 
c 
RETURN 
aesevers 
c 
¢ eeeesSUDROUTINE IEE Sesse 
Co * PIVOT OESIGN/SYNTIESIS DATA CVALATIONS 8? 
€ 


SUBROUTINE TLE 


eeeeeSae AS SUGROUTITE TEE iN C.F AY 19,0) 00009 


RLIURN 
£n0 


Cocecanusureerscersereevcesecescegrereerserurecceuerectacrecesreouceonns 


€ 


¢ ones eSUBROUTINE TLL eeeee 
€  ¢*°PIVOT DESIGN/SYNTHESIS DATA EVALUATIC** 
€ 


Cosrecesvevsureusussceceesageussescevececeececcucesssuesreccercussatesss 


c 


SUBROUTINE TEL 
c 
CC0CSAME AS SUBROUTINE TEL IN C.ERLAY 19.0)e0er" 
RETURN 
to 
Ceossoeree eeersecusesecsscerseseeres tvecccies 
c 
c «SUBROUTINE OL PVT eeces 


C —- S#*EVALUATION OF T-BOK STRUCTURE FEPLACED BY PIWIe+* 


SABROUTINE CLPVT 


ereeeSNE AS SUBROUTINE DLPVT IN OWLALAY 19.0)00008 


c 

€ see eeSUBROUTINE PRIBSecee 

C = ***DESIGN DATA PRINT - TYPE B® SECTION DESTON CETAIL SiPpuayese 
¢ 


Concecusvescvececcasceausacestsusecerecceveseeeseeuseveusuucnercececesty 
¢c 
SUBROUTINE PRIB 


eeeer$AE AS SUBROUTINE PRTR IN QVERLAY (10.00eeee8 


RETURN 
ex 
Cousecccsesusvecevesseesecvacesesseeveveeeseeengueeyncseesvercessnenees 


€ 


SOUBROUTINE PRIC Sees 


C #8 DESIGN DATA PRINT - TYPE C SECTICA EIGHT CETAIL SUPT UAYece 
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4 ae 


06 /tN'T Bet uistps AUTO LOM CHARY SET - SHEER BIND DFC RE OE > 
CARO 1D CONTENTS fee 
729 c 
7039 SUBRQUTIME FRIC 
2031 ¢ 
7032 ¢ AEN AS SUGRSITINE FRIC IN OVERLAY 610.018 2088 
7033 ¢ 
TO RETRO 
7035 fir) 
7036 Cueveavcerscuresecevecerscurscorsostevegsceusursceuevecsuserserss 
7037 € 
if 7038 ¢ oe eSLEE UTE PRINSe ree 
i 7039 C See SIGE CATA FAINT - TYPE H C-SEC/PIVOT (ESIGN SUtURTE ee 
. 7040 ¢ 
Jou1 Coorevecsucescsecssescessesseuseascreccserscccessseuseceussecsecseecs 
7042 ¢ 
703 SUBROUTINE PRIH 
74 € 
TONS ¢ 0080 +SAME AS SUBROU. INE FRIH IN OVERLAY (9.Q1esee8 
THE ¢ 
7047 RETURN 
TH48 (ir 
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